Tema: TEdit
Ver Mensaje Individual
  #3  
Antiguo 26-11-2003
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
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
Responder Con Cita