TEdit

[RoyTan]

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]

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]

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:


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]

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

[delphi.com.ar]

roman comentó:
Tengo la impresión de que versiones anteriores de Delphi no tienen este evento.
Este evento apareció en Delphi 5!

Saludos!

[roman]

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