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

时间:2012-04-18 23:14:44

标签: delphi popup firemonkey

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

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

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

1 个答案:

答案 0 :(得分:5)

我无法重现此行为。这是我试过的:

  • File->New->FireMonkey HD Application
  • 在表单
  • 上删除TMemoTPopupMenu
  • 在对象检查器
  • 中将PopupMenu分配给Memo1.PopupMenu
  • PopupMenu中创建两个菜单项,并为它们分配相同的OnClick事件(在对象检查器中生成)。我在两个项目的MenuItem1中都保留了MenuItem2Caption的默认标题。
  • 使用MessageDlg处理程序中的一个TMenuItem(Sender).Caption按钮写了一个显示Ok的简单OnClick
  • 运行该应用程序,右键单击Memo1,然后选择菜单项

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

编辑:找到它。这是在Update 3中修复的错误 - 请参阅list of bug fixes in Update 3,然后搜索98705,或者滚动浏览到FireMonkey\Components上的部分(这是该部分下的第二个或第三个条目) )。