Timer + Zeichnen(+Bewegen) im Koordinatensystem - WIE?

[jfheins]

Okay, dann sollte das so etwa gehen:

Delphi-Quellcode:

var
  start: Cardinal;
  t: Double;
begin
  start := Gettickcount(); 
  t := 0;

  while (not Application.Terminated) && (t < 5)
  begin 
    Kreis.Top := 100 + 0.5 * 9.81 * t * t; // t ist die Zeit in Sekunden seit Beginn der Animation
    Kreis.Left := 200 + 100 * sin(2 * t)

    Application.Processmessages; 

    t := (Gettickcount() - start) / 1000.0; // Neue Zeit ausrechnen
  end;
end;