Como capturar estado da tecla?

[bdexterholland 0]

Como faço para capturar o estado das teclas:

Insert

caps lock

:P

 

Valew!!!

----------------------------------------------------------------------------

Solução obtida a partir do link:

http://www.activedelphi.com.br/modules.php...=17794#pid41989

 

 

código usado:

if GetKeyState(VK_CAPITAL) = 0 then		StatusBar1.Panels[6].Text:=''	else		StatusBar1.Panels[6].Text:='CAPS';	if GetKeyState(VK_INSERT) = 0 then		StatusBar1.Panels[5].Text:=''	else		StatusBar1.Panels[5].Text:='INS'

[Darvene 0]

Essa dica tirei do DTDalphi 2.6. Vê se é isso...096 - Como saber o estado das teclas Num lock, Caps lock e Scroll lockPara saber o estado das teclas acima citadas, utilize a função getkeystate em conjunto com o código das teclas, ela retorna 0 se a tecla estiver OFF e 1 se a tecla estiver ON, assim:If getkeystate(vk_numlock) = 0 then // Num lock está OFFIf getkeystate(vk_numlock) = 1 then // Num lock está ONIf getkeystate(vk_scroll) = 0 then // Scroll lock está OFFIf getkeystate(vk_scroll) = 1 then // Scroll lock está ONIf getkeystate(vk_CAPITAL) = 0 then // Caps lock está OFFIf getkeystate(vk_CAPITAL) = 1 then // Caps lock está ON ==Inteh!

[bdexterholland 0]

valew, mas já tinha achado a resposta e editado o post...