TMenuItem -> TPopupMenu finden

[hoika]

Hallo #,

der verlinkte Thread
1
endet mit folgender Frage

geg: TMenuItem, was an einem PopupMenu hängt
ges: diese TPopupMenu


Heiko

[Lannes]

Hallo,

versuch es mal damit, sollte unabhängig von der Menu-Verschachtelungstiefe sein.
s := TPopupMenu(TMenuItem(Sender).GetParentMenu).Name; Der Code liefert den Namen der Componente durch/über die das Popup-Menü aufgerufen wurde:
s := TComponent(TPopupMenu(TMenuItem(Sender).GetParentMenu).PopupComponent).Name;

[hoika]

Hallo,

Danke, es läuft !!!




Heiko