Определить состояние CapsLock 2

Delphi , ОС и Железо , Клавиши

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;

Перевод на русский язык:

Код, предоставленный ниже, написан на языке Delphi и среде для создания приложений Windows.

Этот код проверяет состояние нескольких клавиш клавиатуры:

• CapsLock (CheckBox1)
• Shift (CheckBox2)
• NumLock (CheckBox3)
• Scroll Lock (CheckBox4)

Состояние каждой клавиши проверяется каждый раз, когда приложение становится бездействующим. Процедура AppOnIdle запускается постоянно, пока приложение работает.

Работает следующим образом:

1. Когда приложение становится бездействующим, срабатывает событие Application.OnIdle.
2. Это событие вызывает запуск процедуры AppOnIdle.
3. Внутри AppOnIdle используется функция Windows API GetKeyState, чтобы проверить состояние каждой клавиши (например, включен ли CapsLock).
4. Состояние каждой клавиши затем используется для установки свойства "проверено" соответствующего чекбокса.

Почему используется Odd(GetKeyState(VK_CAPITAL)) вместо просто GetKeyState(VK_CAPITAL)? Функция GetKeyState возвращает значение, указывающее, является ли клавиша нажатой (1), отпущенной (0) или переключенной (2). Функция Odd используется для преобразования этого значения в булевое true/false, которое может быть напрямую присвоено свойству "проверено" чекбокса.

Код не проверяет явно ошибочные условия. Он предполагает, что клавиши всегда существуют и функция GetKeyState будет возвращать корректные значения. Если приложение запускается на старом системе, где эти клавиши не существуют, или если есть ошибки в вызовах API, это может привести к неправильному поведению кода.

Альтернативный способ достижения аналогичного результата:

procedure TForm1.AppOnIdle(Sender: TObject; var Done: Boolean);
begin
  CheckBox1.Checked := (GetKeyState(VK_CAPITAL) and $8000 <> 0);
  CheckBox2.Checked := (GetKeyState(VK_SHIFT) and $8000 <> 0);
  CheckBox3.Checked := (GetKeyState(VK_NUMLOCK) and $8000 <> 0);
  CheckBox4.Checked := (GetKeyState(VK_SCROLL) and $8000 <> 0);
  Done := False;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnIdle := AppOnIdle;
end;

В этом альтернативном варианте мы используем оператор bitwise AND (and) для проверки, является ли высокий бит результата GetKeyState установленным. Это эффективно проверяет, является ли клавиша нажатой (т.е., не отпущенной).

В статье описывается способ определения состояния кнопки CapsLock в приложении Delphi с помощью процедуры OnIdle и функции GetKeyState, которая проверяет состояние клавиш.

Комментарии и вопросы

:: Главная :: Клавиши ::