Ver la Versión Completa : Saber si estan pulsadas o no las teclas de bloqueo
Cecil
10-10-2007, 13:43:28
Hola, he estado buscando y nada :(. Me gustaria saber como puedo detectar desde mi aplicación si están pulsadas o no las teclas de "Bloq. Mayúscula", "Insert" y "Bloq. Numérico".
Un saludo y mil gracias como siempre.
Bicho
10-10-2007, 13:51:20
Hola,
a bote pronto puedes probar con esto:
if (getkeystate(144) =1) or (getkeystate(144) =-127) then Edit1.Text := 'Bloq.Num'
else Edit1.Text := '';
if (getkeystate(20) =1) or (getkeystate(20) =-127) then Edit2.Text := 'Mayús'
else Edit2.Text := 'Minus';
if (getkeystate(45) =1) or (getkeystate(45) =-127) then Edit3.Text := 'Sob.'
else Edit3.Text := 'Ins.';
Saludos
Bicho
10-10-2007, 13:57:34
Vamos a mejorarlo, que con los númeritos se hace más difícil.
Usaremos las virtual key que para eso estan
if (getkeystate(VK_NUMLOCK) =1) or (getkeystate(VK_NUMLOCK) =-127) then Edit1.Text := 'Bloq.Num'
else Edit1.Text := '';
if (getkeystate(VK_CAPITAL) =1) or (getkeystate(VK_CAPITAL) =-127) then Edit2.Text := 'Mayús'
else Edit2.Text := 'Minus';
if (getkeystate(VK_INSERT) =1) or (getkeystate(VK_INSERT) =-127) then Edit3.Text := 'Sob.'
else Edit3.Text := 'Ins.';
Cecil
10-10-2007, 14:00:40
Vaya, un millón de gracias, me ha funcionado perfectamente. Un saludo !! :D
vBulletin v3.6.8, Derechos ©2000-2024, Jelsoft Enterprises Ltd.