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.
Código:
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.