ProgressBar mit Timer synchron

[mkinzler]

Deshalb hab ich ja den das Timer-Intervall auf 3 Sekunden gestellt.

[xZise]

Also ich habe es damit gelöst, dass der Timer immer nur einen teil der eigentlichen Zeit brauch um das Ereignis auszulösen.

Bsp:

Code:

[*]Gesamtdauer : 10 Sekunden[*]Schritte (Fortschrittbalken) : 100

d.h. ich habe geschrieben, das das Intervall:
Timer.Intervall := (Gesamtdauer * 1000) / Schritte d.h.

Delphi-Quellcode:

procedure TForm1.TimerTimer(Sender : TObject)
begin
  ProgessBar.Position := ProgressBar.Position + 1 //Ich kenne noch nicht Stepit, aber ist das das gleiche?
  if ProgessBar.Position = ProgressBar.Max {allternativ statt "ProgessBar.Max" auch "100" o.ä.} then
  begin
    Timer.Enabled := false;
    Showmessage('Essen ist fertig ^^');
    // ggf:
    //ProgessBar.Position := 0;
  end;
end;