可以做到:
你自己做一个PopuMenu,在里面添加一行菜单项目:原来的菜单(&O),并且在其Click代码种添加一句
exit;即可!然后在Memo的OnContextPopup事件中添加如下的代码:
var
p:tpoint;
begin
GetCursorPos(p);
PopupMenu1.Popup(p.x,p.y);
handled:=true/false;//根据需要进行处理!需要显示原来菜单的话,用false!否则true;
end;
你自己做一个PopuMenu,在里面添加一行菜单项目:原来的菜单(&O),并且在其Click代码种添加一句
exit;即可!然后在Memo的OnContextPopup事件中添加如下的代码:
var
p:tpoint;
begin
GetCursorPos(p);
PopupMenu1.Popup(p.x,p.y);
handled:=true/false;//根据需要进行处理!需要显示原来菜单的话,用false!否则true;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货