Physik-Simulation: Bekomme Flackern nicht unter Kontrolle

[jfheins]

Dann mach sowas:

Delphi-Quellcode:

var
MyBitmap: TBitmap;
Gitternetz: TGrid;
Ball: TBall;

// FormCreate oder so
begin
  MyBitmap := TBitmap.Create();
  Gitternetz := TGrid.Create(MyBitmap);
  Ball := TBall.Create(MyBitmap);
end;

// OnTimer oder so
begin
Ball.Step(deltaT);

MyBitmap.Clear();
Gitternetz.Paint();
Ball.Paint();
BitBlt({MyBitmap => Paintbox});
end;

Aber auf jeden Fall alle Sachen draufzeichnenj und dann erst ein einziges Bitmap anzeigen