Обработка событий клавиш в DelphiX
Обработка событий клавиш в DelphiX Этот урок не совсем посвящен ДельфИксу. Сейчас вы научитесь обрабатывать такие события, как, например, нажатия клавиш. Но делать мы это будем не при помощи DXInput, так как я все ещё не знаю как с ним работать, делать мы это будем при помощи трех обычных событий: onKeyDown, onKeyUp и onKeyPreesed. Эти свойства есть и у формы и у DXDraw. Я буду работать с формой, кому больше нравится - могут работать с DXDraw, это ничего не меняет. Итак, в прошлый раз у нас была тарелка, летящая по уже заданной траектории. Теперь, я думаю было бы неплохо сделать спрайт стенки квадратным и небольшим, размножить их и добавить гравитацию, чтобы можно было летать по лабиринту и избегать столкновения со стенкой. Теперь стенка будет такой: Можно будет размножить её, зная, что её размеры 23х23 и выстроить лабиринт. Кроме того не помешает создать спрайт "посадочной площадки", чтобы в лабиринте была цель. У меня она будет такой: Теперь о том, как мы будем изменять координаты спрайта при создании. Конструктор Twall.Create теперь будет выглядеть так:(wx и wy - переменные типа Integer)
begin
inherited Create(AParent);
Image := Form1.ImageList.Items.Find('wall');
X := wx;
Y := wy;
Z := 0;
Width := Image.Width;
Height := Image.Height;
PixelCheck := True;
end;
for i:=1 to 20 do
begin
Twall.create(SpriteEngine.Engine);
wx:=wx+22;
end;
wy:=100;wx:=525;
for i:=1 to 12 do
begin
Twall.create(SpriteEngine.Engine);
wx:=wx+22;
end;
wy:=-20;wx:=0;
for i:=1 to 36 do
begin
Twall.create(SpriteEngine.Engine);
wx:=wx+22;
end;
wy:=597;wx:=0;
for i:=1 to 32 do
begin
Twall.create(SpriteEngine.Engine);
wx:=wx+22;
end;
wy:=0;wx:=-18;
for i:=1 to 36 do
begin
Twall.create(SpriteEngine.Engine);
wy:=wy+22;
end;
wy:=0;wx:=795;
for i:=1 to 36 do
begin
Twall.create(SpriteEngine.Engine);
wy:=wy+22;
end;
'W','Ц': ty := -1;
'S','Ы': ty := 1;
'D','А': tx := 1;
'A','Ф': tx := -1;
end;
'W','Ц': ty := 0;
'S','Ы': ty := 0;
'D','А': tx := 0;
'A','Ф': tx := 0;
end;
DelphiWorld 6.0
Отправить комментарий