Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Aynı Türden Nesneler
#1
Cümleten Merhaba,

Herkese sağlıklı günler dilerim.

Ufak bir sorum var;
Bir formda aynı nesneden 30 adet var. Diyelim ki 30 adet Buton. Hepsi aynı tabloya benzer parametre yollayarak farklı veriler alıyor. Mesela Tablonun STOK_ID alanına parametre verip veri çekiyor.
Her buton için kod yazmak yerine, bir kod yazıp HANGİ BUTONA TIKLANDIĞINI almak ve tek kod ile veriye parametre göndermek istiyorum.

begin
tiklananbuton(x) ise parametre(x) e göre tabloyu filtrele
end;
gibi.

Şimdiki kodlar şu şekilde;
procedure Form1.Panel92Click(Sender: TObject);
begin
 TbParcalar.Close;
 TbParcalar.ParamByName('P1').AsInteger := Panel92.Tag;
 TbParcalar.Open();
end;

procedure Form1.Panel93Click(Sender: TObject);
begin
 TbParcalar.Close;
 TbParcalar.ParamByName('P1').AsInteger := Panel93.Tag;
 TbParcalar.Open();
end;

procedure Form1.Panel94Click(Sender: TObject);
begin
 TbParcalar.Close;
 TbParcalar.ParamByName('P1').AsInteger := Panel94.Tag;
 TbParcalar.Open();
end;
Kolay Gelsin
Cevapla
#2
Bir panel altındaki kodu şöyle yazın.
TbParcalar.ParamByName('P1').AsInteger := TPanel(sender).Tag;


sonra da diğer panellerdeki kodları boşaltın, hepsinin onClick eventini bu panelinkine bağlayın. 

Çalıştırın, arkanıza yaslanıp keyfini sürün.  Smile
Saygılarımla
Muharrem ARMAN

guplouajuixjzfm15eqb.gif


Cevapla
#3
@MugenPower,
Form editörümüz üzerinde kod biçimlendirme amacı ile kullandığımız 2 adet buton bulunmaktadır. Delphi Logolu olan (Delphi Kod Ekle) buton ile Delphi kodu, Süslü Parantez simgeli buton (Kod Biçimlendirme) ile de diğer dillere ait (SQL'de dahil) kodlar eklenerek (aşağıdaki ekran görüntüsünde işaretlenmişir), kod biçimlendirme yapılmaktadır. 
Bu kapsamda;
Daha önce kullanmış olduğunuz [code] taglarını kod biçimlendirme Tag'ları ile değiştirilmiştir.
Sonraki kod kullanımlarında doğru kod tag'larını kullanarak bize yardımcı olursanız memnun oluruz.
Aksi durumda DelphiCan Forum Kurallarında belirtilen yaptırımlar uygulanacaktır.
İlgi ve anlayışınız için şimdiden teşekkür eder, iyi çalışmalar dileriz.

Önemli Not: Herhangi bir yerden kopyaladığınız metni, DelphiCan metin editörüne yapıştırmadan önce, metin editörünün araç çubuğunda bulunan "Kaynağı Görüntüle" butonuna tıklayın. Daha sonra kopyaladığınız metni yapıştırın. Böylece harici bir kaynaktan aldığınız metin biçimlendirmesi yok sayılacaktır.
Delphi Can'dır!
WWW
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Nesneler arası İlişkisel bağlantı yapmak bydelphi 2 468 30-06-2020, Saat: 11:08
Son Yorum: bydelphi
  Delphi güncellemesi ve JVMemoryData bileşeninde aynı anda birden çok kayıt boreas 0 354 10-03-2020, Saat: 18:03
Son Yorum: boreas
Photo cxDBGridTable da Listenen Aynı Satırları Tek Satırda Gösterme Selen 3 833 13-02-2020, Saat: 11:36
Son Yorum: Selen
  Aynı kelime Kerembacioglu 2 743 14-12-2019, Saat: 05:39
Son Yorum: Kerembacioglu
  Döngün sürekli aynı geliyor Kerembacioglu 6 1.593 29-10-2019, Saat: 02:36
Son Yorum: Kerembacioglu



Konuyu Okuyanlar: 1 Ziyaretçi