StatusBar

Delphi

18/10/2006

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


Maf_arthur

Maf_arthur

Curtidas 0

Respostas

Output

Output

18/10/2006

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.



GOSTEI 0
POSTAR