Button Cation abfragen

[Die Muhkuh]

Delphi-Quellcode:

procedure WriteLabel(Sender: TObject);
begin
  Label1.Caption := (Sender as TButton).Caption;
end;

// Aufruf:
procedure TForm1.Button1Click(Sender: TObject); // kommt ja von Delphi her
begin
  WriteLabel(Self);
end;