Wie kann ich feststellen, ob NUMLOCK oder CAPSLOCK gedrückt ist?

Wie jede andere taste kann man auch diese beiden über die Funktion GetKeyState() abfragen. Das besondere an NUMLOCK und CAPSLOCK ist, daß diese beiden beim ersten Druck einrasten und bis zum erneuten Druck auch weiterhin als gedrückt gelten.

var CapsLockPressed, NumLockPressed : boolean
begin
  CapsLockPressed := GetKeyState(VK_CAPITAL)<>0;
  NumLockPressed := GetKeyState(VK_NUMLOCK)<>0;

Delphi 1

Delphi 2

Delphi 3

Delphi 4

nicht getestet

Version nicht betroffen

getestet

siehe auch:

Delphi FAQ