"Elegantes" Feststellen einer übergeordneten Komponente?

[sepp001]

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