我女朋友的新笔记本电脑没有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上测试过.