Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Deshabilitar Clic Derecho en Memo? (https://www.clubdelphi.com/foros/showthread.php?t=83025)

wolfran_hack 04-05-2013 07:10:33

Deshabilitar Clic Derecho en Memo?
 
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 04-05-2013 07:23:24

Hola wolfran_hack.

Código Delphi [-]
...
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. :)


La franja horaria es GMT +2. Ahora son las 16:17:36.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi