Tech-Ecke / Delphi Inhalt / TButton, SpeedButton...

 

     TButton, SpeedButton...

 

   ButtonClick ermitteln

Hat man eine Gruppe Buttons, denen man gemeinsam eine Prozedur (OnClick) zugeordnet hat und möchte dann herausfinden von welchem Button das ClickEvent ausgelöst wurde, dann funktioniert das wie folgt:

   Edit1.Text := TButton(Sender).Name;
 

"Die Option Drucken funktioniert erst ab Netscape V4.0 bzw. I-Explorer 5.0 !"

[letzte Aktualisierung 19.11.2009]