D DarwinZhang Unregistered / Unconfirmed GUEST, unregistred user! 2003-03-10 #2 设置它的popupmenu 为一个没有menuitem的popupmenu. 或修改vcl源程序,拦截键盘鼠标消息等等。
康 康凌 Unregistered / Unconfirmed GUEST, unregistred user! 2003-03-10 #3 procedure TForm1.Memo1ContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean); begin Handled:=true; end;
procedure TForm1.Memo1ContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean); begin Handled:=true; end;