tactionmainmenubar

[Hawkeye219]

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