Zitat von
rollstuhlfahrer:
EDIT: Was sollen diese Zeilen denn?
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
ProgressBar1.StepIt;
if ProgressBar1.Position < 1 then
Close;
end;
Entweder ProgressBar1.Min ist weit unter 0 oder dein Programm wird beim ersten Aufruf beendet. Dafür kannst du auch gleich Close nehmen.
Die ProgressBar läuft von 60
rückwärts und sobald sie 0 erreicht, wird die Form geschlossen
(Warum weiß ich auch net ^^)