| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Moving [Delphi]
sqirrel © (2004-01-25 08:36:00)Конечно тупой вопрос, но как заставить объект двигаться при нажитии клавиши.
Iyeh (2004-01-26 01:44:00) [1]Если по 1 еденице каждый раз прибавлять, то далеко не уедешь :)
Обьяви координаты X и Y как Single, потом, в зависимости от назатой клавиши, пиши X := X + 0.25 или другое число. А при отрисовке, приводи их в Integer - DrawSomething(Round(X), Round(Y), ...).
Stalker_23b (2004-01-25 20:33:00) [2]Лмбо в событии формы OnKeyPress изменяешь координаты объекта в зависимости от нажатой клавиши, либо в таймере обновления игры проверяешь GetAsyncKeyState(вритуальный код клавиши)<0, то клавиша нажата, меняешь координаты
xaosik (2004-01-25 18:14:00) [3]if key=up then
top := top+1;
и т.д
NikB (2004-01-25 11:58:00) [4]Esli visualnii object:
Left := Left+1;
Mojet biit tTimer.OnTimer.
| |
