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;
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
