B bravercaohao Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-09 #1 如何屏蔽Tedit中的右键菜单中的粘贴项或右键菜单?
L LeeChange Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-09 #2 TEdit.PopupMenu:=PopupMenu1; PopupMenu不要添任何菜单项.
A AIHUA Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-09 #3 看看你的控件有没有ContextPopup Events,有的话,请看 procedure TForm1.Edit1ContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean); begin handled:=True; //在这儿。 end;
看看你的控件有没有ContextPopup Events,有的话,请看 procedure TForm1.Edit1ContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean); begin handled:=True; //在这儿。 end;
C Crane Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-09 #4 用进程内hook,截获WM_系列中的MENU相关事件,将该menu中的粘贴项disable 掉或者去掉即可,代码请参照我个人最近节题的一个贴子。
E esuper Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-09 #6 如果要动态地,打开或关闭右键菜单AIHUA的方法较好用
L LGXing Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-09 #8 procedure TForm1.Edit1ContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean); begin Handled:=True;//或者 Abort; end;
procedure TForm1.Edit1ContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean); begin Handled:=True;//或者 Abort; end;
H hb_wshsh Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-09 #9 LeeChange的方法有问题,并没有屏蔽掉系统菜单