VPF::DelphiX, как на экране сделать 2 перемещающихся объекта?

slifes

Дата 15.4.2012, 13:51 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 7.2.2012

Репутация: нет
Всего: нет

подключаю два dxinput к одному DXDraw, оба должны взаимодействовать с клавиотурой, один dxinput ставлю на стрелочки, а второй настраиваю на буквы: W S D A, в итоге двигается только тот объект который я настроил на стрелочки, не могу понять что я не правильно делаю smile

подскажите как это реализовать ;)

Это сообщение отредактировал(а) slifes - 15.4.2012, 14:08

slifes

Дата 15.4.2012, 15:07 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 7.2.2012

Репутация: нет
Всего: нет

с проблемой разобрался, не нужно было подключать два dxinput а подключать к одному и тому же два объекта, только один объект настраивать на стрелочки а второй на Button'ы:

первый объект:

Код


procedure TRBall.DoMove(MoveCount: integer);
begin
  inherited;
  If isLeft in Form2.DXInput2.States then x:=x-1;
  If isRight in Form2.DXInput2.States then x:=x+1;
  If isUp in Form2.DXInput2.States then y:=y-1;
  If isDown in Form2.DXInput2.States then y:=y+1;
end;

второй объект:

Код


procedure TLBall.DoMove(MoveCount: integer);
begin
  inherited;
  If isbutton3 in Form2.DXInput2.States then x:=x-1;
  If isButton4 in Form2.DXInput2.States then x:=x+1;
  If isButton1 in Form2.DXInput2.States then y:=y-1;
  If isButton2 in Form2.DXInput2.States then y:=y+1;
end;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »