Welcher Button wurde gecklickt

[Phoenix]

Du bekommst den Sender mit:

Code:

procedure onclick(sender: TObject)

Du kannst dann in der Methode folgendes machen:

Pseudocode:

Delphi-Quellcode:

   if (sender is TButton) then
   with (Sender as TButton) do
   begin
      if Name = 'Name von Button 1' then ...
      else if Name = 'Name von Button 2' then....
   end;

Du kannst also Prüfen ob der Sender eine bestimmte Klasse ist. Wenn ja kannst Du ihn in den Typ casten und dann auf dem Button weiterarbeiten.