![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
|
Я понимаю, что вопрос дурацкий, но как задать смещение точки на форме при помощи стрелок. В Pascal Это задавалось при помощи процедуры readkey, а вDelphi как?
|
|
#2
|
||||
|
||||
|
события OnKeyDown, OnKeyPress/ А там смотри, какая клавиша нажата и двигай точку.
|
|
#3
|
||||
|
||||
|
Код:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case Key of
VK_LEFT: {влево};
VK_RIGHT: {вправо};
VK_UP: {вверх};
VK_DOWN: {вниз};
end;
end; |
|
#4
|
|||
|
|||
|
Можно также через код клавиши :
Цитата:
|
|
#5
|
|||
|
|||
|
В общем если тебе нужно быстрая оброботка сообщений клавы, то ты можешь подключить directInput и не мучатся. Слава богу статей на эту тему хватает.
Очень пригодилось при разработке игры. |
|
#6
|
||||
|
||||
|
RUS Hacker
точно? я вот как-то через ShowMessage в событии KeyPress (или KeyDown, не помню уж) определял, какой Key нажат когда тыкал стрелочки, никакого ShowMessage не происходило! |
|
#7
|
||||
|
||||
|
Цитата:
|
|
#8
|
|||
|
|||
|
Дело скорее всего не в фокусе. Событие OnKeyPress не срабатывает на нажатие стрелочек. Читайте же, наконец, справку!
|
|
#9
|
||||
|
||||
|
Цитата:
|