delphi - FireMonkey：如何抑制默认弹出菜单

Question

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

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

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

Answer 1

我无法重现这种行为。这是我尝试过的：

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

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

编辑：为您找到它。这是更新 3 中修复的错误 - 请参阅更新 3中的错误修复列表，然后搜索98705或滚动直到您到达上部分FireMonkey\Components（它是该部分下的第二个或第三个条目）。