<div>
The lamp on the keyboard which is turned on/off when you press the &quot;Num&quot; key.<br />

</div>


The lamp on the keyboard which is turned on/off when you press the "Num" key.


<div>
Hi ItsMe,<br />
<br />
try these :<br />
<br />
procedure TMyForm.Button1Click(Sende<wbr />r: TObject);<br />
&nbsp; Var<br />
&nbsp; &nbsp; KeyState &nbsp;: &nbsp;TKeyboardState;<br />
&nbsp; begin<br />
&nbsp; &nbsp; GetKeyboardState(KeyState)<wbr />;<br />
&nbsp; &nbsp; if (KeyState[VK_NUMLOCK] = 0) then<br />
&nbsp; &nbsp; &nbsp; KeyState[VK_NUMLOCK] := 1<br />
&nbsp; &nbsp; else<br />
&nbsp; &nbsp; &nbsp; KeyState[VK_NUMLOCK] := 0;<br />
&nbsp; &nbsp; SetKeyboardState(KeyState)<wbr />;<br />
&nbsp; end;<br />
<br />
Regards, Zif.<br />
<br />

</div>


Hi ItsMe,

try these :

procedure TMyForm.Button1Click(Sender: TObject);
  Var
    KeyState  :  TKeyboardState;
  begin
    GetKeyboardState(KeyState);
    if (KeyState[VK_NUMLOCK] = 0) then
      KeyState[VK_NUMLOCK] := 1
    else
      KeyState[VK_NUMLOCK] := 0;
    SetKeyboardState(KeyState);
  end;

Regards, Zif.



<div>
I guess that should answer your question :-)<br />

</div>


I guess that should answer your question :-)


<div>
That doesn't work but I've found out that it works when I send a Keyboard Event Message.<br />
<br />

</div>


That doesn't work but I've found out that it works when I send a Keyboard Event Message.



<div>
Uuups, I wanted to accept it. :-) Please send a comment as answer so that I can accept it.<br />

</div>


Uuups, I wanted to accept it. :-) Please send a comment as answer so that I can accept it.


<div>
<div class="content wysiwyg-content">
Hi! I want to make the Num Led blinking. How do I switch<br />
Num on/off ?<br />
<br />
Regards<br />
ItsMe
</div>
</div>


Hi! I want to make the Num Led blinking. How do I switch
Num on/off ?

Regards
ItsMe

Blinking Num LED

Delphi is the most powerful Object Pascal IDE and component library for cross-platform Native App Development with flexible Cloud services and broad IoT connectivity. It provides powerful VCL controls for Windows 10 and enables FMX development for Windows, Mac and Mobile. Delphi is your choice for ultrafast Enterprise Strong Development™. Look for increased memory for large projects, extended multi-monitor support, improved Object Inspector and much more. Delphi is 5x faster for development and deployment across multiple desktop, mobile, cloud and database platforms including 32-bit and 64-bit Windows 10.