S
searoom
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Timer1Timer(Sender: TObject);
var
KeyState:TKeyBoardState;
begin
GetKeyboardState(KeyState);
if Odd(KeyState[VK_NUMLOCK]) then
StatusBar1.Panels.Items[uNumLock].Text:='NumLock'
else
StatusBar1.Panels.Items[uNumLock].Text:='';
end;
不知道 KeyState[VK_NUMLOCK] 是什么意思
var
KeyState:TKeyBoardState;
begin
GetKeyboardState(KeyState);
if Odd(KeyState[VK_NUMLOCK]) then
StatusBar1.Panels.Items[uNumLock].Text:='NumLock'
else
StatusBar1.Panels.Items[uNumLock].Text:='';
end;
不知道 KeyState[VK_NUMLOCK] 是什么意思