Как применить метод TMenuItem в методах выработки Tаксий?

Question

У меня есть ряд связанных TMenuItems в приложении VCL CodeGear C++.

Каждый TMenuItem связан с тем же действием (TAction).

При щелчке по элементу MenuItem срабатывает действие (его метод выполнения).

Мне нужно каким-то образом отбросить параметр Sender в функции OnExecute, чтобы выяснить, какой элемент меню был нажат.

В настоящее время у меня есть что-то вроде этого

void __fastcall TMoleculixDesktopMainUnit::openMoleculeSelectionFormAExecute(TObject *Sender) 
{ 
//User selected a menuitem under Molecules Menu 

TAction* anItem = dynamic_cast<TAction*>(Sender); 


//AminoAcidsMI is a TMenuItem 
if(AminoAcidsMI == dynamic_cast<TMenuItem*>(anItem->Owner)) 
{ 
    //Open molecule search form with aminoacids 
    MLog()<<"Looking for Amino Acids.."; 
} 
} 

Но выше не работает Действия, владелец и MenuItem.

Answer 1

Используйте свойство TAction::ActionComponent, которое определяет компонент, который вызвал действие.

void __fastcall TMoleculixDesktopMainUnit::openMoleculeSelectionFormAExecute(TObject *Sender) 
{ 
    //User selected a menuitem under Molecules Menu 

    TAction* anItem = dynamic_cast<TAction*>(Sender); 
    if (!anItem) return; 

    AminoAcidsMI == dynamic_cast<TMenuItem*>(anItem->ActionComponent); 
    if (AminoAcidsMI) 
    { 
     //Open molecule search form with aminoacids 
     MLog()<<"Looking for Amino Acids.."; 
    } 
}