[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.