Delphi-PRAXiS - Delphi "Elegantes" Feststellen einer übergeordneten Komponente?

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 "Elegantes" Feststellen einer übergeordneten Komponente? (https://www.delphipraxis.net/79473-elegantes-feststellen-einer-uebergeordneten-komponente.html)

"Elegantes" Feststellen einer übergeordneten Kompo

Hallo zusammen,

ich habe eine Anwendung, in welcher bestimmte Actions u.a. mit einem Menüeintrag verknüpft sind. Falls die Action aus dem Menü heraus aufgerufen wird, ist der Index des übergeordneten Menüs für die weitere Verarbeitung vonnöten. Diesen hole ich mir über folgendes Konstrukt:

Delphi-Quellcode:

			if (Sender as TAction).ActionComponent is TMenuItem then

    mIndex := ((Sender as TAction).ActionComponent.GetParentComponent as TMenuItem).MenuIndex;

Gibt es noch einen eleganteren Weg, an den Menüindex zu kommen, oder ist das der Weg, der beschritten werden muss?

Ciao,
sepp001