Erst beim 2. mal richtig kapiert was du wolltest
Hier ein bisschen Code für alles:
Delphi-Quellcode:
procedure TfrmMain.mntmN32Click(Sender: TObject);
var
LMenuItem : TMenuItem;
LPopupMenu : TPopupMenu;
LParentComponent : TComponent;
begin
LMenuItem := TMenuItem(Sender);
LPopupMenu := TPopupMenu(LMenuItem.GetParentMenu);
LParentComponent := TComponent(LPopupMenu.PopupComponent); // Komponente auf der TPopupMenu liegt
ShowMessage(LParentComponent.Name);
end;