Hallo,
bei mir wird das Sprite neu dazugezeichnet. Ich will aber, dass das alte Sprite gelöscht und dann das neue dazu gezeichnet wird.
Code:
procedure TForm1.FormCreate(Sender: TObject);
begin
car := tcar.Create(dxspriteengine1.Engine);
car.Image := dximagelist1.Items.Find('1');
car.X := 0;
car.Y := 0;
car.Width := car.Image.Width;
car.Height := car.Image.Height;
form1.DoubleBuffered := true;
dxdraw1.DoubleBuffered := true;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
car.X := car.X + 5;
car.Y := car.Y + 5;
dxspriteengine1.draw;
dxdraw1.Flip;
end;