Animation in DelphiX

[Dagon]

Schreib den Code

Delphi-Quellcode:

procedure TForm1.DXTimer1Activate(Sender: TObject); 
begin 
DXSpriteEngine1.Move(1); 
  DXDraw1.Surface.Fill(0); 
  DXSpriteEngine1.Draw; 
  DXDraw1.Flip; 
end;

mal ins OnTimer-Ereignis vom DXTimer1.