I ilovedelphi4 Unregistered / Unconfirmed GUEST, unregistred user! 2001-03-01 #1 我想让EDIT,MEMO这些具有系统自带的右键功能消失,该如何做呢? 就是说让这些原来有右键功能的全部没有! 感谢您的回答!
J Jams Unregistered / Unconfirmed GUEST, unregistred user! 2001-03-01 #2 自己编写个方法,什么也不做! inherited RightBtn
U unreal Unregistered / Unconfirmed GUEST, unregistred user! 2001-03-02 #3 OnContextPopup中 Handled := True;就可以了。 procedure TForm1.Edit1ContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean); begin Handled := True; end;
OnContextPopup中 Handled := True;就可以了。 procedure TForm1.Edit1ContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean); begin Handled := True; end;