Verstehe delphis Sender nicht

[hoika]

Hallo,
per Code (Ohne Object-Inspector) sähe das so aus

Delphi-Quellcode:

procedure TForm1.FormCreate;
begin
  btn_I.OnClick:= btn_X_Click;
  btn_II.OnClick:= btn_X_Click;
end;

procedure TForm1.btn_X_Click(Sender: TObject);
begin
  if Sender = btn_I then
    Showmessage('T')
  else if Sender = btn_II then
    Showmessage('G');
end;

Besser wäre natürlich ein anderer Name für die OnClick-Methode,
z.B. ButtonGeklickt