Wenn du je nach Button noch unterschiedliche Aktionen durchführen möchtest, kannst du auch die Tag-Eigenschaft der Buttons nutzen. Du gibst jedem Button in der Eigenschaft Tag eine andere Zahl (die kann man nämlich einfach per case unterscheiden). Das erste Assert stellt sicher, dass man nichs vergißt, wenn man einen Button nachträglich hinzufügt. Das zweite Assert ist Geschmackssache ob man es braucht, aber es hilft beim Entwickeln schon (jedenfalls mir
)
Delphi-Quellcode:
if (Sender is TButton) then
case (Sender as TButton).Tag of
1: ShowMessage('Button 1 wurde geklickt');
2:;
3: Beep;
4: Application.Terminate;
else Assert(False,'Unbekannter Tag. Evtl. eine Änderung vergessen?');
end else Assert(False,'Sender ist kein Button!');