FTP | CCD | Buscar | Trucos | Trabajo | Foros |
#1
|
||||
|
||||
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. |
#2
|
||||
|
||||
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 |
#3
|
||||
|
||||
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; |
#4
|
||||
|
||||
Muchas gracias Roman va todo OK con delphi 7.
|
#5
|
||||
|
||||
Cita:
Saludos!
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#6
|
||||
|
||||
Cita:
// Saludos |
|
|
|