Цитата NickDang:
и тогда он останавливается там и не продолжает »
|
Так измените код NickDang:
progressbar1.Position := progressbar1.Position + 1;
if progressbar1.Position >= 100 then
progressbar1.Position =0;
В свойствах таймера Interval:=100;
Получите бесконечный цикл! Вообще, смотрите свойства Max, Min, Step.
Судя по вложению, Вы хотели получить прогресс с бесконечным циклом иного варианта. Не знаю, в какой версии Вы работаете, поэтому предложу простое - поищите Графический ProgressBar для приложения Delphi.