FireMonkey：如何取消默认的弹出式菜单

Question

我已经在FireMonkey表单上获得了一个TMemo和一个关联的TPopupMenu。

当我右键点击备忘录时，我得到了自己的弹出菜单，但弹出消失后，我仍然得到默认弹出窗口（说剪切，复制，粘贴，全选）。

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

Answer 1

我无法重现此行为。下面是我的尝试：

• File->New->FireMonkey HD Application
• 在表单上放一个TMemo和TPopupMenu
• 分配PopupMenu到Memo1.PopupMenu在Object Inspector
• 在PopupMenu创建两个菜单项，并为其指定两个相同的OnClick事件（在Object Inspector中生成）。我在两个项目的Caption中保留了默认标题MenuItem1和MenuItem2。
• 写了一个简单的MessageDlg，它在OnClick处理程序中使用单个按钮显示TMenuItem(Sender).Caption。
• 运行应用程序，右击Memo1，并选择使用菜单项

我与我的两个项目（MenuItem1和MenuItem2）显示一个菜单。选择任一项目会在消息对话框中显示相应的Caption，然后在该对话框中单击Ok。没有默认的弹出菜单显示。

编辑：找到它了。这是更新3中修复的一个错误 - 请参阅list of bug fixes in Update 3，并搜索98705，或滚动直到您到达FireMonkey\Components（它是该部分下的第二或第三个条目）部分。