Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Win Api / Как перехватить нажатия функциональных клавиш и стрелок?

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

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

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;

Источник: Дельфи. Вокруг да около.

Copyright ©   "Мастера DELPHI"   E-mail:   delphi@mastak.com  http://www.delphimaster.ru

Источник получения информации: http://www.delphimaster.ru