我可以捕获Capslock/Shift键吗？

Question

我刚刚发现大写锁定和移位键(可能还有一些键)会影响连接到计算机的所有键盘.(测试我编码的程序的危险之一,我只有两只手,所以我花了很长时间才意识到这样的问题)所以分离按键很好,但是转换/大写锁定驱动一切疯狂(当一个用户转向大写,此时所有用户的输入也被大写

我可以在FormKeyPress中捕获Capslock和Shift键吗？其他任何地方的事情？
我可以保存Shift键吗？(所以我可以正确地将'shift'应用到相应的用户输入)

任何其他解决这个问题的建议也是受欢迎的.

Answer 1

检查换档是否已关闭试试这个:

if GetKeyState(VK_SHIFT)<0 //tests if shiftkey is down
 then ShowMessage('shift key is down'');

并检测大写锁定是否打开试试这个:

if Odd(GetKeyState(VK_CAPITAL)) //tests if caps lock is on
then showmessage('caps lock is on');

如果你想检查shift和capslock的状态:

      if Odd(GetKeyState(VK_CAPITAL)) then 
            if GetKeyState(VK_SHIFT)<0 then 
            showmessage('capslock is on and shift key is down too')
           else
          showmessage('capslock is on but shift key is NOT down');

getkeystate是一个windows api函数,你可以在这里阅读更多相关信息