如何屏蔽Tedit中的右键菜单?(20分)

  • 主题发起人 主题发起人 bravercaohao
  • 开始时间 开始时间
B

bravercaohao

Unregistered / Unconfirmed
GUEST, unregistred user!
如何屏蔽Tedit中的右键菜单中的粘贴项或右键菜单?
 
TEdit.PopupMenu:=PopupMenu1;
PopupMenu不要添任何菜单项.
 
看看你的控件有没有ContextPopup Events,有的话,请看
procedure TForm1.Edit1ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
handled:=True; //在这儿。
end;

 
用进程内hook,截获WM_系列中的MENU相关事件,将该menu中的粘贴项disable
掉或者去掉即可,代码请参照我个人最近节题的一个贴子。
 
同意LeeChange,这种方法最简单
 
如果要动态地,打开或关闭右键菜单AIHUA的方法较好用
 
No, AIHUA的方法最正统.
 
procedure TForm1.Edit1ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
Handled:=True;//或者 Abort;
end;
 
LeeChange的方法有问题,并没有屏蔽掉系统菜单
 
后退
顶部