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 09:55 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz