Нажатие на пункт PopupMenu MenuItem по событию MenuItemClick правой или левой кнопкой мыши

// ---------------------------------------------------------------------------
 
#ifndef Unit1H
#define Unit1H
// ---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include <Vcl.ExtCtrls.hpp>
#include <Vcl.Buttons.hpp>
#include <Vcl.Imaging.pngimage.hpp>
#include <Vcl.Graphics.hpp>
#include <Vcl.Menus.hpp>
 
namespace RClick_PopupMenus
{
    class TMyPopupList : public TPopupList
    {
    protected:
        virtual void __fastcall WndProc(Winapi::Messages::TMessage &message);
    };
 
    TMyPopupList *RCPopupList;
 
    class TPopupMenu : public Vcl::Menus::TPopupMenu
    {
    public:
        bool DispatchRC(HMENU AHandle, int APosition)
        {
            if (Handle == AHandle)
            {
                RClick(Items->Items[APosition]);
                return true;
            }
            return false;
        }
 
    protected:
        void RClick(TMenuItem *AItem)
        {
            AItem->Checked = !AItem->Checked;
        }
 
    public:
 
        __fastcall virtual TPopupMenu(System::Classes::TComponent* AOwner)
            : Vcl::Menus::TPopupMenu(AOwner)
        {
            PopupList->Remove(this);
 
            if (!RCPopupList)
                RCPopupList = new TMyPopupList;
            RCPopupList->Add(this);
        }
 
        __fastcall virtual ~TPopupMenu(void)
        {
            RCPopupList->Remove(this);
            PopupList->Add(this);
        }
 
        virtual void __fastcall Popup(int X, int Y)
        {
            unsigned Flags[2][3] =
            { {TPM_LEFTALIGN, TPM_RIGHTALIGN, TPM_CENTERALIGN},
                {TPM_RIGHTALIGN, TPM_LEFTALIGN, TPM_CENTERALIGN}};
            unsigned Buttons[2] =
            {TPM_RIGHTBUTTON, TPM_LEFTBUTTON};
 
            DoPopup(this);
            int AFlags = Flags[UseRightToLeftAlignment()][Alignment];
 
            TrackPopupMenuEx(Items->Handle, AFlags, X, Y,
                RCPopupList->Window, 0);
 
        }
    };
 
}
#define TPopupMenu RClick_PopupMenus::TPopupMenu
 
class TForm1 : public TForm
{
__published: // IDE-managed Components
    TPopupMenu *PopupMenu1;
    TMenuItem *one1;
    TMenuItem *two1;
 
private: // User declarations
        public : // User declarations
 
    __fastcall TForm1(TComponent* Owner);
    __fastcall virtual ~TForm1();
};
 
// ---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
// ---------------------------------------------------------------------------
#endif

// ---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
 
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
void __fastcall RClick_PopupMenus::TMyPopupList::WndProc(Winapi::Messages::TMessage &message)
{
    switch (message.Msg)
    {
    case WM_MENURBUTTONUP:
        for (int i = 0; i < Count; i++)
        {
            TPopupMenu *pm = reinterpret_cast<TPopupMenu*>(Items[i]);
            if (pm->InheritsFrom(__classid(TPopupMenu)))
            {
                if (dynamic_cast<TPopupMenu*>(pm)->DispatchRC((HMENU)(message.LParam), message.WParam))
                {
                    return;
                }
            }
        }
    }
    Vcl::Menus::TPopupList::WndProc(message);
}
 
// ---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner)
{
}
 
__fastcall TForm1::~TForm1()
{
    delete RClick_PopupMenus::RCPopupList;
}