[lazarus] Estado de las teclas Mayus, Bloq Num...

[Pascalizado]

Hola amigos del foro, tengo una duda bastante basica, que es: ¿como capturo el estado de las teclas Mayus, Bloq Num e insert?

Muchas gracias!

[vtdeleon]

Bueno, nunca he usado Lazarus, pero imagino que debe ser similar a Delphi. Ademas no dices en que Sistema Operativos estas.

Prueba con este truco:
http://www.clubdelphi.com/trucos/index.php?id=61

[[Héctor Randolph]]

Perfectamente válido lo que dice Troi, acabo de probarlo con Lazarus en Windows y funciona muy bien

Código Delphi [-]
procedure TForm2.KeyState();
begin
  if GetKeyState(VK_NUMLOCK) and 1 = 1 then
    StatusBar1.Panels[2].Text:='Num'
  else
    StatusBar1.Panels[2].Text:=''
end;

Lo único que hay que tener en cuenta es agregar en los uses las units LCLType y LCLIntf; aqui se definen las constantes de teclas virtuales para compatibilidad con Delphi y las llamadas a funciones de la API de windows.

Saludos

[Pascalizado]

Muchas gracias amigos por sus respuestas me sirvio mucho. cuando intente lo que me recomendo Troi le estaba errando en que no ponia las unidades LCLtypes y LCLIntf, que bolsa de brutalidades soy!

Un abrazo

[vtdeleon]

Saludos

Empezado por Hector

Lo único que hay que tener en cuenta es agregar en los uses las units LCLType y LCLIntf;

Gracias, ya he modificado el truco agregando las units.

Empezado por Pascalizado

Muchas gracias amigos por sus respuestas me sirvio mucho. cuando intente lo que me recomendo Troi le estaba errando en que no ponia las unidades LCLtypes y LCLIntf, que bolsa de brutalidades soy!

No te preocupes, fue mala mia.

Saludas