Перехват курсорных клавиш 2

Автор: Robert Wittig

Вы можете перехватывать нажатие курсорных клавиш на уровне приложения:

Создайте HandleMessages как метод формы и затем назначьте его Application.HandleMessages.

procedure tForm1.HandleMessages(var Msg: tMsg; var Handled: Boolean);
begin
  if (Msg.Message = WM_KeyDown) and
    (Msg.wParam in [VK_UP, VK_DOWN, VK_LEFT, VK_RIGHT]) then
  begin
    case Msg.wParam of
      VK_UP: ShowMessage("Нажата стрелка вверх");
      VK_DOWN: ShowMessage("Нажата стрелка вниз");
      VK_LEFT: ShowMessage("Нажата стрелка влево");
      VK_RIGHT: ShowMessage("Нажата стрелка вправо");
    end;
    Handled := True;
  end;
end;

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

Обсудить статью на форуме

Если Вас заинтересовала или понравилась информация по разработке на Delph - "Перехват курсорных клавиш 2", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!