void __fastcall TForm1::CreateContextMenu(void)
{
FTagInc = 0;
FContextMenu = new TPopupMenu(this);
FContextMenu->AutoHotkeys = maManual;
FContextMenu->OnPopup = UpdateContextMenuItem;
AddContextMenuItem(FContextMenu, "菜单项 1", FTagInc++, MenuItemClick);
AddContextMenuItem(FContextMenu, "菜单项 2", FTagInc++, MenuItemClick);
AddContextMenuItem(FContextMenu, "-", FTagInc++, NullNotifyEvent);
AddContextMenuItem(FContextMenu, "菜单项 3", FTagInc++, MenuItemClick);
} |