如何仅通过拦截器类禁用FMX控件的默认右键弹出菜单？

你的核心问题在于没找对实际触发右键菜单的目标类：FMX控件采用"控件-样式"分离的架构，右键菜单的显示逻辑不在TEdit本身，而是在其对应的样式类TStyledEdit中。下面详细分析你的尝试问题，并给出正确的拦截方案：

你的两种拦截方式失效原因 #

1. 拦截TPopupMenu::Popup无效
   默认右键菜单用的是TStyledEdit内部维护的EditPopupMenu实例，这个实例是FMX框架内部创建的，并没有使用你自定义的TPopupMenu拦截类，所以只会对手动分配的自定义菜单生效，无法影响默认菜单。

2. 拦截TEdit::ShowContextMenu无效
   右键点击触发的是TStyledEdit的ShowContextMenu方法，而非TEdit本身的方法。只有当按下VK_APPS键时，才会调用TEdit的对应方法，这就是为什么你的拦截只对按键生效、右键点击不生效的原因。

正确的拦截方案：拦截TStyledEdit::ShowContextMenu #

要彻底禁用默认右键菜单，需要拦截TStyledEdit的ShowContextMenu方法，让它直接返回False，不执行后续的菜单显示逻辑。以下是C++的拦截器实现代码：

#include <FMX.Edit.Style.hpp>

namespace My_StyledEdit {
    class TStyledEdit : public Fmx::Edit::Style::TStyledEdit {
    public:
        virtual bool __fastcall ShowContextMenu(const System::Types::TPointF &ScreenPosition) override {
            // 直接返回False，不显示任何菜单
            return false;
        }
    };
}

// 替换原类定义，让框架创建我们的拦截类实例
#define TStyledEdit My_StyledEdit::TStyledEdit

注意事项 #

• 确保这段代码在引用FMX.Edit.Style.hpp之后、创建任何TEdit控件之前执行，保证拦截生效。
• 该方式会对所有使用TStyledEdit样式的TEdit控件生效，无需逐个修改控件属性。

额外说明：精细控制菜单禁用 #

如果需要只禁用特定控件的菜单，可以在拦截方法中判断PresentedControl的属性，比如通过Tag或者自定义属性来决定是否返回False：

virtual bool __fastcall ShowContextMenu(const System::Types::TPointF &ScreenPosition) override {
    Fmx::Edit::TEdit* edit = dynamic_cast<Fmx::Edit::TEdit*>(PresentedControl);
    if (edit && edit->Tag == 1) {
        // 仅Tag为1的Edit禁用菜单
        return false;
    }
    // 其他控件执行原逻辑
    return Fmx::Edit::Style::TStyledEdit::ShowContextMenu(ScreenPosition);
}

内容的提问来源于stack exchange，提问作者Bruce