Как узнать состояние клавиши CAPS LOCK? |
Previous Top Next |
Code: |
function IsCapsLockOn : Boolean; begin Result := 0 <> (GetKeyState(VK_CAPITAL) and $01); end; |
©Drkb::01497
Взято из http://forum.sources.ru
Code: |
procedure AppOnIdle(Sender: TObject; var Done: Boolean);
...
procedure TForm1.AppOnIdle(Sender: TObject; var Done: Boolean); begin CheckBox1.Checked := Odd(GetKeyState(VK_CAPITAL)); CheckBox2.Checked := Odd(GetKeyState(VK_SHIFT)); CheckBox3.Checked := Odd(GetKeyState(VK_NUMLOCK)); CheckBox4.Checked := Odd(GetKeyState(VK_SCROLL)); Done := False; end;
procedure TForm1.FormCreate(Sender: TObject); begin Application.OnIdle := AppOnIdle; end; |
©Drkb::01498
DelphiWorld 6.0