GetKeyState

[ixMike]

Hola,

hace tiempo tuve un problema con un HotKey que utilizaba para saber el estado de las teclas BloqMayus y BloqNum (este es el hilo).

El caso es que mi código no tenía fallos (el que pusieron tampoco), sino que el fallo estaba en mi comprobación. Para saber si estaban activadas, yo ponía

Código Delphi [-]
If GetKeyState(VK_CAPITAL)=1 then Barra.Panels[3].Text:='MAYUS' else Barra.Panels[3].Text:='';

Tras varias comprobaciones descubrí que el fallo era GetKeyState, que no devolvía el estado real de la tecla.

Lo resolví cambiando la comprobación (si se pulsaba la tecla y el texto estaba mostrado, se quitaba, sino se mostraba).

El caso es que en el programa tengo un TNMemo, derivado de TMemo al que añadí la propiedad CharCase (que se encuentra ya en TCustomEdit). Y el problema está en que si tengo el BloqMayus activado el texto se sigue escribiendo en minúsculas (pero no si puslo la tecla Shift).

¿El problema es del CharCase o que el componente escribe mayúsculas según GetKeyState?

Gracias desde ya