Problemas al presiona las teclas NumLock, CapsLock y BloqDes

[dec]

Hola,

Empezado por jmariano

¿Te devuelve a ti "GetKeyState" un valor entre 0 y 1 al comprobar el NumLock?

Así es jmariano. Un 0 si la tecla en cuestión no está "activada" y un 1 si lo está...

[Sr.Scorpion]

Gracias a los dos por responderme..... problema resuelto. Eso si la funcion de DEC no me funciona, sigue como estaba antes... tuve que sumarle 127 como decia jmariano y asi fue como me trabajo.


Saludos y Gracias

[Sr.Scorpion]

Bueno al final tuve que hacer dos procedimientos... uno para el estado de las teclas y otro para cuando se presionan. En el evento OnShow de la Forma principal llamo al procedimiento KeyState.. el cual se ejecuta solamente una vez.

 
procedure TMain.KeyState();
begin
If GetKeyState(VK_NUMLOCK) = 1 Then
 StatusBar.Panels[2].Style:= psText
else
 StatusBar.Panels[2].Style:= psOwnerDraw;
If GetKeyState(VK_CAPITAL) = 1 Then
 StatusBar.Panels[3].Style:= psText
else
 StatusBar.Panels[3].Style:= psOwnerDraw;
If GetKeyState(VK_SCROLL) = 1 Then
 StatusBar.Panels[4].Style:= psText
else
 StatusBar.Panels[4].Style:= psOwnerDraw;
end;

y el otro procedimiento es KeyPressed que lo llamo solamente en el OnKeyDown y se le pasa como parametro la variable Key del OnKeyDown

 
procedure TMain.KeyPressed(Key: DWORD);
begin
If Key = VK_NUMLOCK then
 if (GetKeyState(VK_NUMLOCK) + 127) = 0 Then
   StatusBar.Panels[2].Style:= psText
  else
   StatusBar.Panels[2].Style:= psOwnerDraw;
If Key = VK_CAPITAL then
 if (GetKeyState(VK_CAPITAL) + 127) = 0 Then
   StatusBar.Panels[3].Style:= psText
  else
   StatusBar.Panels[3].Style:= psOwnerDraw;
If Key = VK_SCROLL then
 if (GetKeyState(VK_SCROLL) + 127) = 0 Then
   StatusBar.Panels[4].Style:= psText
  else
   StatusBar.Panels[4].Style:= psOwnerDraw;
end;

Si pueden mejorarlo pues bienvenido sea.... esto por lo menos soluciona el problema.

[roman]

No entiendo bien por qué la discrepancia en el funcionamiento. A mi me funciona como dice dec. Ahora, según la documentación, la comparación tendría que hacerse así:

Código Delphi [-]
if GetKeyState(VK_CAPITAL) and 1 = 1 then
  ...

Por otra parte, si lo que se desea es mostrar el estado de estas teclas en una barra de estado, yo me olvidaría del OnKeyDown y pondría un Timer que se ejecute cada 10 ms en donde haría la comprobación. De esta manera, sólo tienes que poner el código en un lugar y además el estado se reflejará correctamente aun cuando el estado de la tecla cambie por razones distintas a oprimir la tecla (al menos a mi me pasa cada tanto que la tecla NumLock se apaga luego de correr alguna aplicación).

// Saludos

[Sr.Scorpion]

Esa sentencia merece un aplauso y una reverencia..... esto hace que el procedimiento sea unico y no haya que introducirle parametros de tecla. Por lo tanto el procedimiento quedaria asi...

 procedure TMain.KeyState();
begin
If GetKeyState(VK_NUMLOCK) and 1 = 1 Then
 StatusBar.Panels[2].Style:= psText
else
 StatusBar.Panels[2].Style:= psOwnerDraw;
If GetKeyState(VK_CAPITAL) and 1 = 1 Then
 StatusBar.Panels[3].Style:= psText
else
 StatusBar.Panels[3].Style:= psOwnerDraw;
If GetKeyState(VK_SCROLL) and 1 = 1 Then
 StatusBar.Panels[4].Style:= psText
else
 StatusBar.Panels[4].Style:= psOwnerDraw;
end;

roman... en cuanto a lo del Timer no me gusta mucho esa idea debido a que no tiene un efecto inmediato, es decir yo aprieto el CapsLock y se me demora 10 o 5 segundos en mostrarse ese cambio en mi aplicacion. Por lo menos en cuanto a mi respecta me gusta mas la onda del OnKeyDown, tiene un efecto mas inmediato. No obstante te agradezco que hayas intervenido en este post tu sentecia de verdad que me fue muy util

Saludos y Gracias

[roman]

Empezado por Sr.Scorpion

roman... en cuanto a lo del Timer no me gusta mucho esa idea debido a que no tiene un efecto inmediato

¿¿¿¡¡¡¡¡10 milisegundos no se te hace inmediato!!!!?????

Simplemente pon la propiedad Interval del timer en 10 (incluso 50 0 100 debe ser suficiente). Te aseguro que el efecto es inmediato.

// Saludos

[roman]

¿Has pensado que sucede si el usuario activa otra aplicación y estando en ella cambia el estado de alguna de estas teclas? ¿Crees que tu aplicación lo detectará? Haz la prueba.

// Saludos