Контроль Scroll Lock

[Altera]

Привет всем! Как мне установить контроль за такими клавишами, как Scroll Lock, Caps Lock, Num Lock? Первый шаг я уже сделал: Зарил её как HOT KEY.
А как уснать, нажата ли она, или нет?

[Баламут]

case GetKeyState(VK_SCROLL) of
  0: Label1.Caption := 'Не горит...';
  1: Label1.Caption := 'Горит!';
end;

Так же и для VK_NUMLock, и для CapsLock

[Altera]

2Баламут, не помогает. Не действует вообще.
Дело в том, не катит под горячии клавиши...

[CODE]
...
procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;
...
RegisterHotKey(Handle, VK_SCROLL, 0, VK_SCROLL);
...
procedure TEXE_FORM1.WMHotKey(var Msg: TWMHotKey);
begin
if GetKeyState(VK_SCROLL) and 1 = 0 then
caption := 'Нажата'
else
caption := 'Не нажата';
end;
...
/CODE]

[Баламут]

Хм... Интересно. Буду думать. А ты может расскажешь пока, почету так принципиально отслежить состояние именно в этом месте?

[Altera]

Сообщение от Баламут

Хм... Интересно. Буду думать. А ты может расскажешь пока, почету так принципиально отслежить состояние именно в этом месте?

Ну, можно ещё и с помощью таймера...
Но мне интересно с hot key

[Баламут]

Именно с таймером я и эксперемнтировал, прежде чем выложить решение. А еще с обработчиком KeyUp формы. Здесь тоже все работает. С HotKey будем разбираться. Самому интересно стало.

[Altera]

Сообщение от Баламут

Именно с таймером я и эксперемнтировал, прежде чем выложить решение. А еще с обработчиком KeyUp формы. Здесь тоже все работает. С HotKey будем разбираться. Самому интересно стало.

Дело в том, что при hot key клавиша глобальная, нежели при tForm.keyUp

[eoln]

Мне кажется это из-за того, что WM_HOTKEY отлавливается при нажатой кнопке и надо просто немного подождать (до того момента как клавишу отпустят). Поставить на поток или на таймер.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button2: TButton;
    procedure WMHotKey(var Msg: TWMHotKey);
      message WM_HOTKEY;
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

type tnew = class(tthread)
  protected
    procedure execute; override;
  end;

var
  Form1: TForm1;
  new: tnew;

implementation

{$R *.dfm}

procedure tnew.execute;
begin
  sleep(50);
  if 0 <> (GetKeyState(VK_SCROLL) and $01) then
  form1.caption := 'вкл' else form1.caption := 'выкл';
end;

procedure TForm1.WMHotKey(var Msg: TWMHotKey);
begin
  Msg.Result := 0;
  new := tnew.create(true);
  new.priority := tpnormal;
  new.resume;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  RegisterHotKey(Handle, VK_SCROLL, 0, VK_SCROLL);
end;

end.

[Баламут]

Тоже самое пытался сделать без потока... Не сработало. Но дело даже не в этом. При повторном нажатии (состояние изменилось в предыдущем екшене) опять же ничего не происходит. Т.е. на данный момент результат вроде есть, а понимания происходящего нет. А это не есть гуд.

[Alter]

Вот что решил, без цыклов и потоков:

unit Unit_;

interface

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

type
  TForm1 = class(TForm)
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
   procedure AppOnMessage(var Msg :TMsg; var Handled :Boolean);
   Procedure RStat;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 Application.OnMessage := AppOnMessage;
 RStat;
end;

Procedure TForm1.RStat;
begin
 CheckBox1.Checked := Odd(GetKeyState(VK_CAPITAL));
 CheckBox2.Checked := Odd(GetKeyState(VK_NUMLOCK));
 CheckBox3.Checked := Odd(GetKeyState(VK_SCROLL));
end;

procedure TForm1.AppOnMessage(var Msg :TMsg; var Handled :Boolean);
begin
 Case Msg.Message of
  WM_KEYDOWN, WM_KEYUP:
   begin
    Case Msg.Wparam of
     VK_CAPITAL,
     VK_NUMLOCK,
     VK_SCROLL: RStat;
    end;
   end;
 end;
end;

end.