Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС ВЗЛОМ
выпущен 2 августа!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



Перехват курсорных клавиш 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;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS