Контроль Scroll Lock

[Altera]

Люди, вот что я ещё выяснил: Если идёт поток проверки нажатости scroll lock, например в tTimer:

...
var
scrollLockIsPress: boolean;
...
procedure tForm1.timerOnTimer(sender: tObject);
begin
   scrollLockIsPress := (getKeySate(VK_SCROLL) and 1) <> 0
end;
...
procedure onHotKeyPress(var message: tWMHotKey);
begin
   if scrollLockIsPress then
      showMessage('Горит')
   else
      showMessage('Не горит'); 
end;
...

Помойму данный код срабатывает только однажды....

[Stilet]

Вот так работает:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if GetKeyState(VK_SCROLL)=1 then caption:='Горит' else caption:='Неа';
end;

в Таймер поставь задержку меньше.

[Alter]

А чем мой код не устраивает? Работает как надобно. Вместо CheckBox можно другое использовать, хоть лейблы.

[Altera]

Ладно, спасибо ребята!
А как изменить программно значение кнопки?

[Alter]

PHP код:

unit Unit_2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

type
   TKeyType = (ktCapsLock, ktNumLock, ktScrollLock);

var
  Form1: TForm1;
  procedure SetStat(KeyCode :TKeyType; bOn :Boolean);

implementation

{$R *.dfm}

procedure SetStat(KeyCode :TKeyType; bOn :Boolean);
var
   KBState:TKeyboardState;
   Code: Byte;
begin
 case KeyCode of
  ktScrollLock: Code := VK_SCROLL;
  ktCapsLock: Code := VK_CAPITAL;
  ktNumLock: Code := VK_NUMLOCK;
 end;
   GetKeyboardState(KBState);
 if (Win32Platform = VER_PLATFORM_WIN32_NT) then
 begin
  if Boolean(KBState[Code])<>bOn then
  begin
   keybd_event(Code,
               MapVirtualKey(Code, 0),
               KEYEVENTF_EXTENDEDKEY,
               0);

   keybd_event(Code,
               MapVirtualKey(Code, 0),
               KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,
               0);
  end;
 end
  else
 begin
  KBState[Code] := Ord(bOn);
  SetKeyboardState(KBState);
 end;
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin // Caps Lock
  // 1- ый способ
 SetStat(ktCapsLock, CheckBox1.Checked);
  // 2- ой способ
 keybd_event(VK_CAPITAL, Ord(CheckBox1.Checked), 0, 0);
 keybd_event(VK_CAPITAL, Ord(CheckBox1.Checked), KEYEVENTF_KEYUP, 0);
end;

procedure TForm1.CheckBox2Click(Sender: TObject);
begin // Num Lock
  // 1- ый способ
 SetStat(ktNumLock, CheckBox2.Checked);
  // 2- ой способ
 keybd_event(VK_NUMLOCK, Ord(CheckBox2.Checked), 0, 0);
 keybd_event(VK_NUMLOCK, Ord(CheckBox2.Checked), KEYEVENTF_KEYUP, 0);
end;

procedure TForm1.CheckBox3Click(Sender: TObject);
begin // Scroll Lock
  // 1- ый способ
 SetStat(ktScrollLock, CheckBox3.Checked);
   // 2- ой способ
 keybd_event(VK_SCROLL, Ord(CheckBox3.Checked), 0, 0);
 keybd_event(VK_SCROLL, Ord(CheckBox3.Checked), KEYEVENTF_KEYUP, 0);
end;

end.