|
Registriert seit: 10. Jan 2005
Ort: Bönen
1.164 Beiträge
Delphi 11 Alexandria
|
Problemchen beim NUMLOCK Taste überprüfen und einschalten
22. Jan 2006, 13:51
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?
Jürgen
Indes sie forschten, röntgten, filmten, funkten, entstand von selbst die köstlichste Erfindung: der Umweg als die kürzeste Verbindung zwischen zwei Punkten. (Erich Kästner)
|