Wie bekomme ich den Namen eines Buttons nach dem Click ?

[malabarista]

ich habe ein Form mit 40 Buttons. Da es nun keinen Sinn macht für jeden Button eine eigene OnClick-Routine zu schreiben (weil die alle bis auf einen numerischen Parameter gleich sind),
wollte ich diesen einen Parameter in den Namen des Button hineinstecken.
Beispiel: butt01 für den Button mit dem Parameter 1, butt02 für den Button mit dem Parameter 2, usw.

Ich habe allerdings keine Ahnung, wie ich in der OnClick-Routine den Namen des Buttons bestimmen kann (irgendwie über den "Sender" ? ).

[wp_xyz]

Für solche Zwecke gibt es die Eigenschaft "Tag" (sowas wie "Aufkleber"), Sie wird sonst nicht verwendet, und man kann hier einen beliebigen Integer-Wert reinschreiben, ohne etwas kaputt zu machen. Das kann man zur Designzeit im Object-Inspector erledigen, oder aber natürlich auch zur Laufzeit, z.B. im FormCreate. Den Wert kannst du dann in der gemeinsamen OnClick-Routine in einer case-Anweisung abfragen:

Code: Alles auswählen

procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.Tag := 1;
  Button2.Tag := 5;
  // usw
end;
 
procedure TForm1.GemeinsamesBtnClick(Sender: TObject);
var
  btn: TButton;
begin
  btn := Sender as TButton;
  case btn.Tag of
    1: Mache_das_fuer_den_Button_mit_Tag_1;
    5: Mache_das_fuer_den_Button_mit_Tag_5;
  // etc.
  end;

[photor]

... oder schau mal hier: http://www.lazarusforum.de/viewtopic.php?f=10&t=9777. Ich hatte ein ähnliches Problem. Am Ende erwähnte Lösung klappt hervorragend.

Ciao,

Photor

[malabarista]

Klasse, - genau so etwas wie den "Tag" habe ich gesucht.
Dankeschön.

[delphifreak]

Hallo,

den Namen des Buttons (oder alle anderen Properties)
bekommst du so:

Code: Alles auswählen

 
procedure TForm1.GemeinsamesBtnClick(Sender: TObject);
var
_name:string;
begin
   _name:=TButton(Sender).Name;
end;
 

[malabarista]

Das ist auch gut zu wissen.
Falls ich mal einen String übergeben möchte ("Tag" ist ja nur integer).

[pluto]

procedure TForm1.GemeinsamesBtnClick(Sender: TObject);
var
_name:string;
begin
_name:=TButton(Sender).Name;
end;

Ich würde hier noch eine Überprüfung einbauen, ob der Sender wirklich ein TButton ist. Oder einfach von TComponent ausgehen(Wenn ich mich nicht täusche).

Eine Überprüfung würde so aussehen:
if sender is TButton then ....