Tema: [lazarus] Estado de las teclas Mayus, Bloq Num...
Ver Mensaje Individual
  #3  
Antiguo 27-09-2006
Avatar de Héctor Randolph
[Héctor Randolph] Héctor Randolph is offline
Miembro Premium
  
Registrado: dic 2004
Posts: 882
Reputación: 20
Héctor Randolph Va por buen camino
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
Responder Con Cita