sender parametresi

[egedenizi]

merhabalar arkadaşlar.
Sizin için kolay fakat benim takıldığım bir soru sormak istiyorum.
Benim 1den fazla butonum var ve hangi butona basıldığını anlamak istiyorum.
Ben bu şekilde yaptım ama uzun oluyor.
if sender=button1 then showmessage('button1e basıldı');
if sender=button2 then showmessage('button2e basıldı');
if sender=button3 then showmessage('button3e basıldı');
...
...
...
Bunun kısa yolu varmıdır?Zannedersem Tbutton ile de yapılabiliyor herhalde.
Teşekkür ederim.....

[kadirkurtoglu]

merhaba

Kod: Tümünü seç

if Button1 = (Sender) then
showmessage('butona bastınız');

[aLonE CoDeR]

Kod: Tümünü seç

ShowMessage (TButton (Sender).Name + 'e Bastınız')

gibi bir şey sanırım...

[sadettinpolat]

her bir butonda ayrı ayrı işlemler yaptıracaksan kolay bir yolu yok malesef ama daha okunaklı ve işlem sayısını azaltabilecek yollar mevcut aksi takdirde yukarıda verilen kod işini göreektir zaten.

[rsimsek]

Herkes değişik anladı ya sanırım yapılmak istenen şu;

Kod: Tümünü seç

if (Sender is TButton) then
  ShowMessage('Butona basıldı');
if (Sender is TBitBtn) then
  ShowMessage('BitBtn basıldı');
//vs.

Class ile karşılaştırmak yeterli.. Bileşenin adını da;

Kod: Tümünü seç

ShowMessage((Sender as TComponent).Name);

ile alabilirsin..