Caps-Lock (Led) anschalten

From: Nicolas Bronke <newsgroup_at_trinity.de>
Date: Sun, 10 Oct 1999 21:16:24 +0200
Message-ID: <3800d7d8@news2.prserv.net>

Ich möchte beim wechseln in ein numerisches Feld die caps-lock taste abfangen, damit Notebook-Anwender nicht ständig Probleme mit dem "ausversehen drücken der caps-lock-Taste" keine Zahlen mehr eingeben können.

Vor einiger Zeit wurde dies bereits gefragt. Die Lösung

procedure TDBCurrencyEdit.CMEnter(var Message: TCMEnter); Var kbState : TKeyboardstate;
begin
  getKeyboardstate(kbState);
  kbState[VK_CAPITAL]:=0;
  setKeyboardstate(kbState);
  SetFocused(True);
  inherited;
end;

klappt auch - allerdings bleibt das LED bei der normalen Tastatur hiervon unberührt! Ist das nun ein Delphi/NT40 oder sonst welcher Bug oder kann man mit setkeyboardstate doch das LED zu einer Reaktion bringen? --
Viele Grüße
Nicolas Bronke Received on Sun Oct 10 1999 - 14:16:24 CDT

Caps-Lock (Led) anschalten - ausschalten