ProgressBar mit Timer synchron

[mkinzler]

progressbar1.Max := Timer1.Interval; Dann ist es ja Klar, du müßtest das Programm ewig Laufen lassen bevor du was siehst. (Alle 30 Sek ein Punkt ~ 1/1000)!.

Es fehlt auch der redraw der Progressbar:

Delphi-Quellcode:

procedure TForm1.Ontimer(Sender: TObject);
begin                     
    ProgressBar1.StepIt;
    ProgressBar1.Update;
end;