Hi,
meinst du sowas?
Delphi-Quellcode:
procedure TfrmMain.mntmN32Click(Sender: TObject);
var
LMenuItem : TMenuItem;
begin
LMenuItem := TMenuItem(Sender);
ShowMessage(LMenuItem.Caption);
end;
Du kannst das
Sender als diese Komponente casten die sie wirklich ist. z.B. TButton(Object), TLabel(Object) usw...
Freundliche Grüsse