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