delphi禁止TEdit, TMemo右键上下文弹出菜单

procedure TForm1.Edit1ContextPopup(Sender: TObject;MousePos: TPoint;var Handled: Boolean) ;
begin
//disable default context popup
Handled := True;
end;