welcher button wurde geklickt

[happyaura]

Hallo,
gibt es eine möglichkeit rauszufinden, durch welchen button eine routine aufgerufen wurde oder muß ich zwingend für jeden button eine eigene routine schreiben, auch wenn sie prinzipiell das gleiche tun?

Delphi-Quellcode:

type Trecord = record 
                 value  : integer;
                 button : Tbutton;
               end;

var test: array[0..1] of Trecord;

procedure TForm1.ButtonClick(Sender: TObject);  
          //onClick bei test[0].button und test[1].button
begin
    label1.caption:='Wert :'+inttostr(test[0 oder 1].value) 
          //gibt den zum button gehörigen wert aus
end

gibt es da eine möglichkeit? ich muß ja sozusagen vom button auf den record schließen um so die komponenten des records ansprechen zu können. mein gefühl sagt mir, dass das nicht unbedingt realisierbar sein muß, zur not muß ich eben mit copy + paste für jeden button 'ne procedure schreiben...

[BenjaminH]

Du gibst dem Tag des Buttons jeweils einen eigenen Wert(Button1.Tag:=0; Button2.Tag:=1; )
Jetzt kannst du über den Sender herausfinden, welcher Button gedrückt wurde:

Delphi-Quellcode:

Label1.Caption:='Wert :'+inttostr(test[TButton(Sender).Tag].value);

oder (Sender as TButton) das entspräche TButton(Sender)

[happyaura]

prima, vielen Dank, sowas hab ich gesucht.

Gruß martin