Foros Club Delphi - Abrebiaturas del Teclado.

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)

- - Abrebiaturas del Teclado. (https://www.clubdelphi.com/foros/showthread.php?t=8600)

UTECYBER

26-03-2004 18:19:12

Abrebiaturas del Teclado.

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

26-03-2004 19:04:33

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

Código:

  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

26-03-2004 19:45:00

Gracias Roman me funciono a la perfección.

Atte.
Utecyber,. :p

DanForever

08-05-2006 08:36:41

A mi también me ha ayudado

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.

La franja horaria es GMT +2. Ahora son las 01:12:19.