原来有右键功能的全部没有!(100分)

  • 主题发起人 主题发起人 ilovedelphi4
  • 开始时间 开始时间
I

ilovedelphi4

Unregistered / Unconfirmed
GUEST, unregistred user!
我想让EDIT,MEMO这些具有系统自带的右键功能消失,该如何做呢?
就是说让这些原来有右键功能的全部没有!

感谢您的回答!
 
自己编写个方法,什么也不做!
inherited RightBtn
 
OnContextPopup中 Handled := True;就可以了。

procedure TForm1.Edit1ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
Handled := True;
end;
 
接受答案了.
 
后退
顶部