Einfache DXInput Abfrage

[citybreaker]

Wenn du ein Sprite verwendest musst du folgendes machen.

Delphi-Quellcode:

type
 TPlayer = class(TImageSprite)
 private
 public
  procedure DoMove(MoveCount: Integer); override// Zeile erweitern
end;

.....


procedure TPlayer.DoMove(MoveCount: Integer);
begin
  if isLeft in Form1.DxInput1.States then
    Player.X := Player.X -3;
  if isRight in Form1.DxInput1.States then
    Player.X := Player.X +3;
end;