如何禁用Tmemo控件中的右键弹出菜单功能?急!(50分)

  • 主题发起人 主题发起人 natolee
  • 开始时间 开始时间
N

natolee

Unregistered / Unconfirmed
GUEST, unregistred user!
如何禁用Tmemo控件中的右键弹出菜单功能?
 
设置它的popupmenu 为一个没有menuitem的popupmenu.
或修改vcl源程序,拦截键盘鼠标消息等等。
 
procedure TForm1.Memo1ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
Handled:=true;
end;
 
接受答案了.
 
后退
顶部