Как перехватить нажатия функциональных клавиш и стрелок?

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

Как перехватить нажатия функциональных клавиш и стрелок (в своем приложении)?

Проверяйте значение переменной key на равенство VK_RIGHT, VK_LEFT, VK_F1 и т.д. на событии KeyDown формы

Code:

procedure TForm1.FormKeyDown(Sender: TObject;  var Key: Word; Shift: TShiftState);

        begin

        if Key = VK_RIGHT then

            Form1.Caption := 'Right';

        if Key = VK_F1 then

            Form1.Caption := 'F1';

        end;

Автор: Arx ( http://arxoft.tora.ru )

Взято из http://forum.sources.ru

Статья Как перехватить нажатия функциональных клавиш и стрелок? раздела ОС и Железо Клавиши может быть полезна для разработчиков на Delphi и FreePascal.

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

Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.

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

02.06.2023 09:21:41/0.015218019485474/0