delphi – 当我的应用程序没有焦点时,如何捕获键盘状态？

发布时间：2020-12-15 04:02:18 所属栏目：大数据来源：网络整理

导读：我女朋友的新笔记本电脑没有NumLock和CapsLock的指示灯,所以我写了一个小程序,在屏幕上显示它们的状态： procedure TForm1.Timer1Timer(Sender: TObject); var KeyState: TKeyboardState; begin GetKeyboardState(KeyState); if KeyState[VK_NUMLOCK] = 0 th

我女朋友的新笔记本电脑没有NumLock和CapsLock的指示灯,所以我写了一个小程序,在屏幕上显示它们的状态：

procedure TForm1.Timer1Timer(Sender: TObject);  
var  
  KeyState: TKeyboardState;  
begin  
  GetKeyboardState(KeyState);  
  if KeyState[VK_NUMLOCK] = 0 then  
    PanelNumLock.Color := clSilver  
  else  
    PanelNumLock.Color := clLime;  
  if KeyState[VK_CAPITAL] = 0 then  
    PanelCapsLock.Color := clSilver  
  else  
    PanelCapsLock.Color := clLime;  
end;

只要我的程序具有焦点,这就可以工作,但是当重点关注时,程序状态将不再更新. (但是,只需将鼠标移到表单上,不进行单击就足以进行更新.)

当另一个应用程序有焦点时,如何让程序更新？

解决方法

您可以在计时器中使用 GetKeyState.

if GetKeyState(VK_NUMLOCK) = 1 then
  PanelNumLock.Color := clLime
else
  PanelNumLock.Color := clSilver;

if GetKeyState(VK_CAPITAL) = 1 then
  PanelCapsLock.Color := clLime
else
  PanelCapsLock.Color := clSilver;

即使您的应用程序没有焦点,这也适用.在XP上测试过.

（编辑：李大同）

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