Abrebiaturas del Teclado.

[UTECYBER]

Saludos a todos.
Espero que esten bien.

Tengo un FrmPrincipal, el cual tengo un Statusbar1 con varios paneles, Quiero que en el statusbar1 me presente Num en caso de que el usuario pulse la tecla Numlock del teclado numerico. Y tambien la tecla Capslock del teclado alfabetico.

Como lo hago?

eso es todo.
Atte.Utecyber.

[roman]

Intenta poner este código en el evento OnTimer de un timer:

  if GetKeyState(VK_NUMLOCK) and $00ff <> 0
    then StatusBar1.Panels[0].Text := 'NUM ON'
    else StatusBar1.Panels[0].Text := 'NUM OFF';

  if GetKeyState(VK_CAPITAL) and $00ff <> 0
    then StatusBar1.Panels[1].Text := 'CAPS ON'
    else StatusBar1.Panels[1].Text := 'CAPS OFF';

// Saludos

[UTECYBER]

Gracias Roman me funciono a la perfección.

Atte.
Utecyber,.

[DanForever]

He entradoaquí para ver si encontraba algo para poder controlar el estado del CapsLock, y lo he encontrado!! y todo con un par de líneas.

Gracias a vosotros.