Kontrollieren der CAPS-Lock Taste

[toms]

Bei mir funktioniert das (ist zwar nicht so schön, da Caps Lock kurz aufblinkt)

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin

         if Key = VK_CAPITAL then
         begin
              SetCapsLock(False);
         end;
end;