Hallo,
wenn du den Unterpunkten eine gemeinsame Action zuordnest, kannst du über
TAction.ActionComponent auf die auslösende Komponente zugreifen:
Delphi-Quellcode:
procedure TForm1.Action1Execute (Sender: TObject);
const
FMT = 'event caused by %s, tag=%d';
begin
with (Sender as TAction).ActionComponent do
ShowMessage (Format(FMT, [ClassName, Tag]));
end;
PS: Du kannst durch die Verwendung von Klein-
und Großbuchstaben die Lesbarkeit deiner Beiträge erhöhen und somit eventuell mehr Helfer finden.
Gruß Hawkeye