delphi – 我可以捕获Capslock / Shift键吗？

发布时间：2020-12-15 09:37:44 所属栏目：大数据来源：网络整理

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

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

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

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

解决方法

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

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函数,你可以阅读更多关于它here

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!