在BCB中把主菜单放到工具栏里后，实现自定义快捷键的方法

关注

原创最新推荐文章于 2026-08-09 16:34:42 发布 2.4k 阅读 AI 写同款· GEO 优化 ›

限时加码！20+主流AI编程工具免费用购周边加赠Coding Plan Lite，Claude Code、Cursor等即刻畅享，学习进阶更高效！阅读详情

如果做过“把主菜单放到工具栏里”的兄弟们都会发现一个问题：那就是系统会自动给菜单选项加上热键(如果你的菜单选项是英文，那么会在第一个字母下加横线，如果你的菜单选项是中文，那么会在菜单选项的后面加上类似(Y)、(Z)的快捷键)，而使你自己定义的快捷键失效！(注：我后来发现，如果自己加的是类似(H)的快捷键时，就不会出现这样的问题。而只有当我们加的是类似Ctrl+A,F1,Ctrl+Alt+D等的快捷键时才会出现问题；另外当为TMainMenu设置了Images属性后，也就是说给菜单项加了图片，英文菜单的问题会消失，但中文菜单的问题依然存在。这其中的原因，我也搞不清楚)。即使我们设置mainMenu的AutoHotkeys=maManual也解决不了。

当初我在遇到这个问题后，一筹莫展，只好向高手们请教。后来在BCB_FANS和JSP两位老大的帮助下，才解决问题。因此，这篇文章实际上是整理的两位老大的方法。

首先，让我们去掉系统自动加的热键。

当我们把菜单放到工具栏里后，我们在程序运行时看到的菜单其实不是我们在设计时加的TMainMenu，而是系统临时new的一个TPopupMenu，而这个临时的菜单的AutoHotkeys属性默认为maAutomatic，所以就会给菜单自动加上热键。这个问题是BCB_FANS发现的(我不可能有这么厉害，呵呵),他的原话是这样的：

“实际上显示菜单的时候，TToolBar并不是使用原来已经设计好的菜单了，而是重新建立一个临时的TPopupMenu，并把原来的那个菜单的菜单项添加到这个RpopupMenu当中，最后才显示这个临时的TPopupMenu。这个TPopupMenu的AutoHotkeys为maAutomatical，并且没有任何方式可以控制这个临时的TPopupMenu的属性。所以显示出来的菜单都会自动添加快捷字符。”

然后BCB_FANS就自己做了一个TMenuBar,专门用来制作工具栏里的菜单(我现在用的就是它)。他在TMenuBar中的实现方法是用自己的TPopupMenu替换系统new的TPopupMenu，设置自己的TPopupMenu的AutoHotkeys=maManual：

“既然没有办法控制那个临时的TPopupMenu，自然而然就会想到使用自己的TPopupMenu去替换那个临时的TPopupMenu，OK，这个好办，只要设置TToolButton的DropdownMenu属，而不是设置MenuItem属性就可以了。然后再设置自己的TPopupMenu的AutoHotkeys为maManual，这样就没有快捷字符了。”

当然，并不是每个人都象我这样幸运，能得到BCB_FANS老大TMenuBar的，呵呵。所以我昨天就在TR老大的“不可能解决的问题”帖子里问了这个问题，结果让JSP老大把我认为“不可能解决的问题”给解决了！

JSP老大的实现方法和其实和BCB_FANS的是一样的，也是用自己的TPopupMenu替换系统的临时菜单。只是BCB_FANS老大的TMenuBar封装了TToolBar,并且能自动产生ToolButton来和菜单项关联，而不需要我们手动设置；而JSP的代码只是完成去掉自动产生的快捷键而写的，其他工作还得我们自己做。

JSP老大的代码如下(注释是我自己加的)：

__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    TMenuItem* Item;
    TMenuItem* Item1;
    TPopupMenu* Menu;

    for(int n=0; n<ToolBar1->ButtonCount; n++)
   {
        TToolButton* Btn = ToolBar1->Buttons[n];
        if (Btn->DropdownMenu != NULL)
            Btn->MenuItem = NULL;            //去掉系统产生的快捷菜单
        else if(Btn->MenuItem != NULL)
            {
              Item = Btn->MenuItem;
              Menu = new TPopupMenu(this);
              Menu->AutoHotkeys = maManual; //不自动产生热键
              Btn->DropdownMenu = Menu;      //给ToolButton添加自己new的菜单
              if (Item->GetParentMenu())     //设置该快捷菜单的设置与TMainMenu相同
             {
                Menu->BiDiMode = Item->GetParentMenu()->BiDiMode;
                Menu->Images = Item->GetParentMenu()->Images;
             }
             Menu->HelpContext = Item->HelpContext;
             Menu->TrackButton = tbLeftButton;
             for(int i=Item->Count-1; i>=0; i--)   //把菜单选项添加到自己new的TPopupMenu里
             {
                Item1 = Item->Items[i];
                Item->Delete(i);
                Menu->Items->Insert(0, Item1);
             }
            }
     }
}

有了JSP老大的这段代码后，就可以去掉那些讨厌的快捷键了(实际上是替换了菜单，当然快捷键也就没有了)。但是现在问题还自解决了一半，也就是还只去掉了自动产生的快捷键，而我们自己设置的快捷键还没有起作用！我要说明白的是，这时并不是所有我们设置的快捷键都不起作用，类似(N)这种括弧里的和字母下加横线的快捷键还是好用的。只有类似Ctrl+a,Ctrl+Alt+Z和F1这些类型的快捷键不起作用。为什么会这样？我找不到原因。

那我们下面就想办法让自己的快捷键起作用！我是通过使用TActionList来实现这一功能的，其实也是借鉴了以前的帖子，然后自己加以完善。

我们知道TActionList可以定义许多Actions(方法：设计时双击TActionList控件，出现设置对话框后，就可以自己定义Actions了)，而每个Actions都可以使用快捷键来触发它们的OnExecute事件。说到这里我想大家应该明白怎么做了。如果我们把某个Actions的快捷键和某个菜单选项的快捷键设置为相同，例如把菜单项“Redo”和一Actions的快捷键都设置为Ctrl+R。然后再在该Actions的OnExecute事件触发“Redo”菜单项的OnClick事件(也就是在Actions的OnExecute事件里加入代码：RedoMenu->Click();//RedoMenu为“Redo”菜单选项的名称)，那么当我们按下Ctrl+R时，就会触发“Redo”的OnClick事件了，这样看起来，我们给菜单设置的快捷键(Ctrl+R)就起作用了！

这样，我们就可以去掉系统自动产生的热键，而且可以自己定义各种合适的快捷键了！