Deshabilitar Clic Derecho en Memo?

[wolfran_hack]

Hola quisiera saber si alguien sabe como poder bloquear el boton derecho del mouse en un Memo sino que el menú derecho del mouse desaparezca, si alguien sabe como hacerlo agradecería mucho su ayuda.
Saludos

[ecfisa]

Hola wolfran_hack.


...
type
TForm1 = class(TForm)
Memo1: TMemo;
procedure FormCreate(Sender: TObject);
private
procedure MemoContextMenu(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
public
end;
...

implementation

procedure TForm1.MemoContextMenu(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
Handled := True;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.OnContextPopup := MemoContextMenu;
...
end;


Saludos. :)