Como faço para saber se o CapsLock está ligado

Delphi

06/05/2003

Eu queria fazer o seguinte:

Colocar num [b:7042b75210]StatusBar[/b:7042b75210] o estado do [b:7042b75210]CapsLock[/b:7042b75210].
se alguém pressionar o [b:7042b75210]CAPSLOCK[/b:7042b75210], a StatusBar atualiza o estado do [b:7042b75210]CAPSLOCK[/b:7042b75210]

:wink:

[]´s

luís erucci
[url]www33.brinkster.com/unifenasdx[/url]
[url]www21.brinkster.com/coolunifenas[/url]


Erucci

Erucci

Curtidas 0

Respostas

Dedi

Dedi

06/05/2003

implemente este codigo

procedure TForm10.Button3Click(Sender: TObject);
Var
KeyState : TKeyboardState;
begin
GetKeyboardState(KeyState);
if KeyState[VK_CAPITAL] = 1 then //desligado = 0 ligado 1
StatusBar1.SimpleText:=´Caps Ligado´;
else
StatusBar1.SimpleText:=´Caps Desligado´;
end;


GOSTEI 0
POSTAR