Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - TEdit (https://www.clubdelphi.com/foros/showthread.php?t=5585)

RoyTan

26-11-2003 19:36:17

TEdit

Ante todo un cordial saludo.

La verdad es que no se como quitar el menu emergente
que sale cuando pulsas con el boton derecho del raton
sobre un control TEdit.

Gracias.

roman

26-11-2003 20:34:54

Seguramente deb haber alguna forma inteligente de hacerlopero a falta de una mejor puedes asignarle a su propiedad PopopMenu un PopupMenu vacío (sin ítemes). Con esto ya no aparece ningún menú.

// Saludos

roman

26-11-2003 20:49:52

En Delphi 7 el Edit tiene el evento OnContextPopup en el cual ajustas el parámetro Handled a true y con eso evitas que aparezca.

Tengo la impresión de que versiones anteriores de Delphi no tienen este evento. Si es así se puede crear un descendiente de TEdit que inhabilite el mensaje WM_CONTEXTMENU:

Código:

type

  TrmEdit = class(TEdit)

    procedure WM_CONTEXTMENU(var Msg: TMessage); message WM_CONTEXTMENU;

  end;



...



procedure TrmEdit.WM_CONTEXTMENU(var Msg: TMessage); message WM_CONTEXTMENU;

begin

  { no hacer nada }

end;

// Saludos

RoyTan

26-11-2003 21:00:01

Muchas gracias Roman va todo OK con delphi 7.:D

delphi.com.ar

26-11-2003 21:07:36

Cita:

roman comentó:
Tengo la impresión de que versiones anteriores de Delphi no tienen este evento.

Este evento apareció en Delphi 5!

Saludos!

roman

26-11-2003 21:12:33

Cita:

delphi.com.ar comentó:
Este evento apareció en Delphi 5!

Sí, bueno, la verdad es que recuerdo alguna vez haber querido hacer lo que pregunta RoyTan allá por Delphi 2 pero nunca más lo requerí de manera que hasta hoy no tenía noticia de tal evento y no sabía en qué versión había aparecido.

// Saludos

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