Welcher Button wurde gecklickt

[Zephit]

Hallo kann ich irgendwie herausfinden welcher Button benutzt wurde??

Ich bräuchte den Namen des Buttons in String!

[Ultimator]

Im Button1 OnClick-Event schreibst du einfach in eine Variable 'Button 1', bei Button2 OnClick halt 'Button 2'...

[Zephit]

Sorry ...

Ich hätte dazusagen sollen das dies alles zur Laufzeit erstellte Buttons sind und die alle die gleiche onclick methoe haben!

[Ultimator]

Dann hab ich weder was gesagt noch 'ne Ahnung :mrgreen:

[p0w3r5tr34m3r]

machste es so...

Delphi-Quellcode:

procedure TForm1.ButtonXOnClick(Sender: TObject);
var
 BName: string;
begin
 BName := (Sender as TButton).Name;
 Label1.Caption := BName;
end;

MfG Powerstreamer

[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.

[Luckie]

Wenn sie alle die gleiche OnClick Methode haben, dann wirst du ja so was haben oder:

Delphi-Quellcode:

case (Sender as TButton).Tag of
0:;
1:;
2:;
end;

Dann weißt du doch welcher geklickt wurde und kannst ganz einfach auf die Caption Eigenschaft zugreifen.