bileşen çağırma

[yastik]

1-) b1 ve b2 butonuna bastığımda datasetin beforepost fonksiyonu çalışıyor
yapmak istediğim her iki butona basıldığında datasetin beforepost olayında farklı kontrollerin yapılması. beforepost fonksiyonunda çağrının hangi butondan geldiğini nasıl anlarız.

Gridleri excele export için ortak bir form tasarladım ve her forma ekledim
tpopup nesnesi kullanarak export yapıyorum. Export yaparken(Tpopup ın items larından birine basıldığında ) Tpopup nesnesini çağıran grid din adını nasılöğrenebilrim.

Teşekkürler

[husonet]

1-) b1 ve b2 butonuna bastığımda datasetin beforepost fonksiyonu çalışıyor
yapmak istediğim her iki butona basıldığında datasetin beforepost olayında farklı kontrollerin yapılması. beforepost fonksiyonunda çağrının hangi butondan geldiğini nasıl anlarız.

Global değişkenlerle kontrolü elinde tutmayı denesen.

Kalay gelsin...

[yastik]

pek etik olmaz sanırım

gönderenin kim olduğunu bilmek daha uygun değil mi?

[mege]

bunu yapmak için bin tane yöntem bulunabilir. tag ları kullanırsınız sender ları veya başka değişkenleri.veya farklı eventlara yazarsınız.
tag sender
etik niye pek anlayamadım.

[yastik]

etik işin espirisi.....

gönderen componentin name ine nasıl ulaşabilirim.

[sTb]

S.A.

Kod: Tümünü seç

if (sender as tbutton).Name='Button1' then
edit1.text:='button1' else edit1.text:='button2';

Ayrıca her kontrole farklı birer tag verip

Kod: Tümünü seç

if (sender as tbutton).tag=1 then
edit1.text:='button1' else edit1.text:='button2';

şeklinde de olabilir.


SAYGILARIMLA

[yastik]

sender nesnesi yok ki örenek olarak kodları aşağıya yazdım.

Kod: Tümünü seç

procedure TForm1.ADOTable1BeforePost(DataSet: TDataSet);
begin
  { hangi butondan çağırıldım ben
     button1 mi? Yoksa sppedbutton1 mi?
      }
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 ADOTable1.Post
end;



procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  ADOTable1.Post
end;

[lazio]

HusoNet in dediği gibi Global bir değişken ile yakalayabilirsin..
xSender : Byte;
..
..

Button1 click inde
xSender := 1;
...
...
Button2 click inde
xSender := 2;

onBeforePost tada
if xSender = 1 then
....
else
.....
gibi

[yastik]

Husonet in söylediği yöntem güzel fakat başka bir yöntem daha bulabilirmiyiz diye merak ediyorum. Israrım o yüzden...

[fduman]

İlla başka yöntem istiyorsan

- Button.TXT diye bir dosyan var. Button1 e bastığında dosyaya Button1 yazar, SpeedButton'a bastığında SpeedButton yazar. BeforePost'ta bu dosyayı okur ve hangi düğmeye basılmış anlarsın.

- Button1 e bastığında Notepad'i açarsın, speedbutton a bastığında calculator'u. Beforepost'ta bellekte hangisinin açık olduğuna bakıp düğmeyi anlarsın.

- Button1'e bastığında bir exception oluşturur fakat bunu raise etmezsin. BeforePost'ta daha önce oluşan exception'u raise edip "except on EButton1" gibi bir kod ile hangi düğme olduğunu anlarsın.

Bu aslında şeye benzedi hani Niels Bohr'a okulda bir binanın yüksekliğini nasıl ölçersin diye sormuşlar o da 40 farklı yöntem saymış...

Velhasıl.. Bu anlattığım yöntemler işe yarar ama kullanışsız ve anlamsız. husonet'in önerisi en mantıklı ve basit olanı. Programlarken en basit yolu seçeceksin.

[yastik]

amacimiz da bu zaten, ayrica buradaki alakasız bir yöndem başka bir zamanda çok alakalı olabilir. Di mi?