Delphi-PRAXiS - Delphi Problemchen beim NUMLOCK Taste überprüfen und einschalten

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)

- - Delphi Problemchen beim NUMLOCK Taste überprüfen und einschalten (https://www.delphipraxis.net/61514-problemchen-beim-numlock-taste-ueberpruefen-und-einschalten.html)

Problemchen beim NUMLOCK Taste überprüfen und einschalten

Hallo zusammen,
ich habe folgenden Code:

Delphi-Quellcode:

			//...

if GetKeyState(VK_NUMLOCK) = 0 then

 MessageBox(application.Handle,

  'Achtung, die Nummernblock-Taste war ausgeschaltet...! ' + #13#10 +

  'Sie wurde jetzt automatisch eingeschaltet! ;-)','Tastatureinstellung wurde angepaßt!' ,MB_OK   or MB_ICONWarning);

if GetKeyState(VK_NUMLOCK) = 0 then

 keybd_event(VK_NUMLOCK, 0, KEYEVENTF_EXTENDEDKEY, 1); 

//...

Funktionieren tut das ganze auch, nur wenn die NUMLOCK-Taste durch diesen Code eingeschaltet wurde, muss man händisch ZWEIMAL die Taste betätigen, bevor dieses wieder ausgeschaltet wird!

Weiß jemand warum das so ist?

Re: Problemchen beim NUMLOCK Taste überprüfen und einschalte

Da gibts schon was von Luckie

Numlock :!:

Re: Problemchen beim NUMLOCK Taste überprüfen und einschalte

Hallo Ferber,
Super! Danke für den Link! Was Luckie da geschrieben hat ist genau so wie ich es gerne hätte.
Einen schönen Sonntag noch!
Gruß Jürgen