Hallo Sebastian,
Delphi-Quellcode:
procedure TForm1.Action1Execute (Sender: TObject);
var
mi : TMenuItem;
pm : TPopupMenu;
begin
mi := TAction(Sender).ActionComponent as TMenuItem;
pm := mi.GetParentMenu as TPopupMenu;
ShowMessage (pm.PopupComponent.Name);
end;
Das wäre eine weitere Möglichkeit. Aber selbst mit den notwendigen Sicherheitsabfragen ist sie nicht viel schöner als deine Lösung.
Gruß Hawkeye