Fórum Como faço para saber se o CapsLock está ligado #158208
06/05/2003
0
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]
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
Curtir tópico
+ 0
Responder
Posts
06/05/2003
Dedi
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;
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;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)