Delphi中如何在右键点击TMemo控件时执行自定义操作并禁用原生菜单

问题原因 #

只读模式下的TMemo默认调用Windows标准EDIT控件的原生上下文菜单，单纯将OnContextPopup事件置空无法拦截该原生行为。 #

可用解决方案 #

• 方案1：处理OnContextPopup事件标记为已处理
  给Memo控件绑定OnContextPopup事件，通过Handled参数阻止默认菜单弹出，你的原有MouseDown事件的右键逻辑即可正常执行，代码如下：

  procedure TForm1.Memo1ContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean);
  begin
    Handled := True;
  end;
  

  也可以直接在该事件内执行自定义右键逻辑，省略MouseDown里的右键判断：

  procedure TForm1.Memo1ContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean);
  begin
    Handled := True;
    DoAction2; // 直接执行自定义右键操作
  end;
  

• 方案2：绑定空的PopupMenu控件
  在窗体上添加一个空的TPopupMenu组件，将Memo的PopupMenu属性设置为该空菜单，即可覆盖原生上下文菜单，原有右键点击逻辑也能正常触发。

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