Planetenbahnen.

[happyaura]

Zitat:

Ich benötige eine Procedure die eine Kontrolle durchführt ob bereits seit dem Start des Timers, 100ms rumsind und wenn ja soll der Timmer wieder auf 0 gesetzt werden und wieder von vorne starten.
[mit dem sinn, nicht jede einzelne Berechnung zeichenen zulassen sondern jede 10ms, was ja sicher volkommen aureichend ist.]

Eventuell hab ich Dich da falsch verstanden, aber der Timer in delphi tut genau das, was Du vorhast:

Delphi-Quellcode:

var timer1: TTimer;

procedure TForm1.Initialisierung ();
begin
  timer1.interval=10; //oder =100;
  timer1.enabled= true;
end


procedure TForm1.Timer1_OnTimer(Sender: TObject);
begin
//zeichnung durchführen
end;

ob 10 ms bei Windows Sinn machen, weiß ich nicht genau, hab da die sinnvollen zeiten nicht im Kopf, würd aber gefühlsmäßig eher auf 100 ms hoch gehen

Viel Erfolg beim Forschen