Welcher Button?

[sCrAPt]

Hi.

Wie findet man raus auf welchen Button man gerade gedrückt hat? Ich habe eine Procedure der ich den Button-Namen auf den ich geklickt habe senden.

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin
becount(button1);
end;

Ich will halt das wie in dem Beispiel nur der Buttonname (button1 im Beispiel) automatisch ausgefüllt wird.

[mirage228]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  IF Sender = Button1 THEN 
  BEGIN
    // was auch immer
  END ELSE
  IF Sender = Button2 THEN
  BEGIN
    // wenn Button2 gedrückt wurde
  END;
  // und so weiter...
end;

du musst im objektinspektor dann jedem button diese prozedur zuweisen!

so sollte es gehen ;-)

[lodda]

Bei mir Funktioniert das so leider nicht ich muss immer einen Typcast machen

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject)
begin
  if (Sender as TButton).Name = Button1.Name then 
  ...
end;