ショートカットキーの処理者を切り替える

//---------------------------------------------------------------------------
bool __fastcall TForm1::IsShortCut(TWMKey& AMessage)
{
        TShortCut shortCut;
        {
                TShiftState shiftState;
                if(GetAsyncKeyState(VK_SHIFT) < 0) {
                        shiftState << ssShift;
                }
                if(GetAsyncKeyState(VK_CONTROL) < 0) {
                        shiftState << ssCtrl;
                }
                if(GetAsyncKeyState(VK_MENU) < 0) {
                        shiftState << ssAlt;
                }
                shortCut = ShortCut(AMessage.CharCode, shiftState);
        }
        TMenu* menus[] = {MainMenu, PopupMenu};
        for(int i = 0; i < sizeof(menus) / sizeof(TMenu*); i++) {
                if(menus[i] == NULL) {
                        continue;
                }
                TMenuItem* menuItem = menus[i]->FindItem(shortCut, fkShortCut);
                if(menuItem == NULL || !menuItem->Enabled) {
                        continue;
                }
                menuItem->Click();
                return true;
        }
        return false;
}
//---------------------------------------------------------------------------