Einzelnen Beitrag anzeigen

Benutzerbild von sepp001
sepp001

Registriert seit: 12. Mär 2004
Ort: Schwerin
34 Beiträge
 
Delphi 7 Professional
 
#1

"Elegantes" Feststellen einer übergeordneten Kompo

  Alt 23. Okt 2006, 11:43
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
Deutschland ist das einzige Land der Welt, in dem Männer achtlos über ein halbes Dutzend nackter Frauen klettern, um an eine Flasche Bier zu kommen.
  Mit Zitat antworten Zitat