使Memo 原有的右键功能失效 _OnContextPopup

//功能说明:Memo1ContextPopup使Memo Edit原有的右键功能失效 Combox不行.pa 
procedure TForm1.Memo1ContextPopup(Sender: TObject; MousePos: TPoint; 
  var Handled: Boolean);
begin
   Handled := True;
end;
//Combox不行




posted @ 2012-05-31 08:25  XE2011  阅读(262)  评论(0)    收藏  举报