Überprüfen ob Button gedrückt wurde?

[Sharky]

Hai Jack23,

Zitat von Jack23:

...if TButton.Caption = 'test' then

ich würde versuchen die "Entscheidung" nicht von der Caption abhängig zumachen. Du kannst jedem Button einen eindeutigen Wert in der Eigenschaft Tag zuweisen und dann diese auswerten.

Delphi-Quellcode:

procedure TDemo_Form.FormCreate(Sender: TObject);
begin
  Button1.Tag := 1;
  Button2.Tag := 2;
  Button3.Tag := 3;
end;

procedure TDemo_Form.AllButtonOnClick(Sender: TObject);
var
  btn_Tag : Integer;
  btn_Caption : String;
begin
  btn_Tag := (Sender as TButton).Tag;
  btn_Caption := (Sender as TButton).Caption;
  case btn_Tag of
    1 : Mache das;
    2 : oder das;
    3 : oder das;
  end;
end;