Delphi-PRAXiS - Delphi TMenuItem -> TPopupMenu finden

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)

- - Delphi TMenuItem -> TPopupMenu finden (https://www.delphipraxis.net/137782-tmenuitem-tpopupmenu-finden.html)

hoika

28. Jul 2009 16:38

TMenuItem -> TPopupMenu finden

Hallo #,

der verlinkte Thread

1
endet mit folgender Frage

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

Heiko

Lannes

28. Jul 2009 18:41

Re: TMenuItem -> TPopupMenu finden

Hallo,

versuch es mal damit, sollte unabhängig von der Menu-Verschachtelungstiefe sein.

Delphi-Quellcode:

s := TPopupMenu(TMenuItem(Sender).GetParentMenu).Name;

Der Code liefert den Namen der Componente durch/über die das Popup-Menü aufgerufen wurde:

Delphi-Quellcode:

			s := TComponent(TPopupMenu(TMenuItem(Sender).GetParentMenu).PopupComponent).Name;
		

hoika

28. Jul 2009 20:23

Re: TMenuItem -> TPopupMenu finden

Hallo,

Danke, es läuft !!!

:cheers:

Heiko

Alle Zeitangaben in WEZ +1. Es ist jetzt 06:17 Uhr.