FireMonkey:如何禁止默认弹出菜单

Wou*_*ick 0 delphi popup firemonkey

我在FireMonkey表单上有一个带有关联TPopupMenu的TMemo.

当我右键单击备忘录时,我得到了自己的弹出菜单,但是在我的弹出窗口消失之后,我仍然得到默认弹出窗口(即剪切,复制,粘贴,全选).

如何禁用默认菜单,或者我可以将自己的项目添加到默认菜单中?

Ken*_*ite 5

我无法重现这种行为.这是我试过的:

  • File->New->FireMonkey HD Application
  • 放一个TMemoTPopupMenu在窗体上
  • 在Object Inspector中分配PopupMenuMemo1.PopupMenu
  • 在中创建两个菜单项PopupMenu,并为它们分配相同的OnClick事件(在Object Inspector中生成).我离开的默认标题 MenuItem1,并MenuItem2Caption这两个项目中.
  • 写了一个简单的MessageDlg,在处理程序TMenuItem(Sender).Caption中用一个Ok按钮显示OnClick.
  • 运行应用程序,右键单击Memo1,然后选择任一菜单项

我得到一个单独的菜单显示我的两个项目(MenuItem1MenuItem2).选择任一项都会Caption在消息对话框中显示相应的项,然后单击Ok该对话框.没有显示默认弹出菜单.

编辑:找到它.这是固定在更新3中的错误-看到在更新3 bug修复的列表,并搜索98705,或者直到你到达的部分滚动FireMonkey\Components(这是根据该条第二或第三条目).