EM_SHOWBALLOONTIP C++ a Delphi

[Jose Roman]

Hola a todos,

Estoy trabajando con Delphi XE7 y en un Form hay un TEdit con la propiedad PasswordChar igual a *, mi pregunta es como hago para quitar el mensaje que aparece cuando el usuario tiene activada la tecla de Bloqueo de Mayusculas, esto debido a que estoy trabajando con los estilos que ya trae delphi pero el mensaje no aparece de la forma debida.


Gracias por su colaboracion.

[Jose Roman]

Cordial saludo,

Estoy tratando de suprimir la advertencia CapsLook en un TEdit que tiene la propiedad PasswordChar := '*', encontre esta solucion pero no se como implementarlo en Delphi para que se suprima este mensaje.

WNDPROC g_wpEdit; 

LRESULT RETROLLAMADA NoBalloonWndProc (HWND hwnd, UINT uMsg, 
                                  WPARAM wParam, lParam LPARAM) 
{ 
  switch (uMsg) { 
  caso EM_SHOWBALLOONTIP: return false; 
  } 
  volver CallWindowProc (g_wpEdit, hwnd, uMsg, wParam, lParam); 
} 

BOOL 
OnCreate ( HWND hwnd, LPC lpCreateStruct) 
{ 
    g_hwndChild = CreateWindow (TEXT ("editar"), NULL, 
            ES_PASSWORD | WS_CHILD | WS_VISIBLE, 0, 0, 
            0, 0, hwnd, NULL, g_hinst, 0); 
    if (! g_hwndChild) devolverá FALSE ; g_wpEdit = SubclassWindow (g_hwndChild, NoBalloonWndProc); 
    return TRUE; 
}

Gracias por su ayuda.

[[escafandra]]

Aunque no lo puedo probar, pues lo escribí con delphi 7, prueba con este código en tu unit, delante del formulario:

Código Delphi [-]
type   
TEdit  = class(StdCtrls.TEdit)     
  protected       
    procedure WndProc(var Message: TMessage); override;   
end;

const   
ECM_FIRST  = $00001500;   
EM_SHOWBALLOONTIP = ECM_FIRST + 3;  

implementation  

procedure TEdit.WndProc(var Message: TMessage); 
begin
   if Message.Msg = EM_SHOWBALLOONTIP then exit;
   inherited WndProc(Message); 
end;

Saludos.

[dec]

Hola,

Empezado por escafandra

Aunque no lo puedo probar, pues lo escribí con delphi 7, prueba con este código en tu unit, delante del formulario:

Código Delphi [-]
type   
TEdit  = class(StdCtrls.TEdit)     
  protected       
    procedure WndProc(var Message: TMessage); override;   
end;

const   
ECM_FIRST  = $00001500;   
EM_SHOWBALLOONTIP = ECM_FIRST + 3;  

implementation  

procedure TEdit.WndProc(var Message: TMessage); 
begin
   if Message.Msg = EM_SHOWBALLOONTIP then exit;
   inherited WndProc(Message); 
end;

Saludos.

Funciona como se espera. Probado en Delphi XE2.

[[escafandra]]

Me alegro, dec.

Saludos.

[Jose Roman]

Gracias por su respuesta me fue de gran ayuda

[Jose Roman]

Ustedes podrían ayudarme con un ejemplo de como implementar ese codigo con Edit con la propiedad PasswordChar := '*'??

[Jose Roman]

De antemano gracias por la colaboración.

[[escafandra]]

Te respondo aquí.


Saludos.