Fórum StatusBar #331484
18/10/2006
0
Ola pessoal..
gente e o seguinte coloquei no meu projeto as funções de estados de teclas
As NUM LOCK E CAPS LOCK em um STATUSBAR
ate ai tudo bem so que tem um pro a rotina q eu estou usando e a seguinte:
no evento OnKeyDown do formulario
if odd (GetKeyState(VK_NUMLOCK)) then
StatusBar1.Panels[0].Text := ´NUM´
else
StatusBar1.Panels[0].Text := ´´;
{ tecla CAPSLOCK }
if odd (GetKeyState(VK_CAPITAL)) then
StatusBar1.Panels[1].Text := ´CAPS LOCK´
else
StatusBar1.Panels[1].Text := ´´;
A minha duvida e como faço para colocar o estado desssa teclas em Enabled:= False para desligada e
Enabled:= True para ligada
alguem ai pode mim ajudar
fico grato pela ajuda
gente e o seguinte coloquei no meu projeto as funções de estados de teclas
As NUM LOCK E CAPS LOCK em um STATUSBAR
ate ai tudo bem so que tem um pro a rotina q eu estou usando e a seguinte:
no evento OnKeyDown do formulario
if odd (GetKeyState(VK_NUMLOCK)) then
StatusBar1.Panels[0].Text := ´NUM´
else
StatusBar1.Panels[0].Text := ´´;
{ tecla CAPSLOCK }
if odd (GetKeyState(VK_CAPITAL)) then
StatusBar1.Panels[1].Text := ´CAPS LOCK´
else
StatusBar1.Panels[1].Text := ´´;
A minha duvida e como faço para colocar o estado desssa teclas em Enabled:= False para desligada e
Enabled:= True para ligada
alguem ai pode mim ajudar
fico grato pela ajuda
Maf_arthur
Curtir tópico
+ 0
Responder
Posts
19/10/2006
Output
V c issu t ajuda!!! Faça a verificacao no evento OnKeyUp...
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
KeyState: TKeyboardState;
begin
GetKeyboardState(KeyState);
if(KeyState[20] = 1) then
begin
ShowMessage(´Ativado´);
exit;
end
else
ShowMessage(´Desativado´);
end;
end.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)