//[
][
][
][
][
]by SuperYoyoNC[
][
][
][
][
][
]
procedure TfrmMain.tmrShowTimeTimer(Sender: TObject);
var ks:tkeyboardstate;
begin
//检测键盘函数
GetKeyboardState(ks);
if Odd(ks[VK_NUMLOCK]) then
satStatus.Panels.items[1].Bevel:=pbLowered
else
satStatus.panels.items[1].Bevel:=pbRaised;
if Odd(ks[VK_CAPITAL]) then
satStatus.panels.items[2].Bevel:=pbLowered
else
satStatus.panels.items[2].Bevel:=pbRaised;
if Odd(ks[VK_SCROLL]) then
satStatus.panels.items[3].Bevel:=pbLowered
else
satStatus.panels.items[3].Bevel:=pbRaised;
if Odd(ks[VK_INSERT]) then
satStatus.panels.items[4].Bevel:=pbLowered
else
satStatus.panels.items[4].Bevel:=pbRaised;
end;