Re: [DUG] Numeric Key-pad

[Alistair Grant George]

Hello Stacey,
Try:
procedure ToggleNumLock;
  var
  KeyState : TKeyboardState;

begin
  GetKeyboardState(KeyState);
  if (KeyState[VK_NUMLOCK] = 0) then
    KeyState[VK_NUMLOCK] := 1
  else
    KeyState[VK_NUMLOCK] := 0;
  SetKeyboardState(KeyState);

{ Same works on Capslock: Replace VK_NUMLOCK by VK_CAPITAL }
end;


_______________________________________________
Delphi mailing list
[EMAIL PROTECTED]
http://ns3.123.co.nz/mailman/listinfo/delphi