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

[[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