|
Registriert seit: 30. Jan 2005
Ort: Münster
745 Beiträge
Delphi 3 Professional
|
Re: TMenuItem -> TPopupMenu finden
28. Jul 2009, 19:41
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;
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )
|