Как сделать: что бы - progressbar, по нажатию на кнопку, работал без остановки и после окончания цикла - заполнить прогресс бар на 100% и остановить. ?
В коде:
Min и Max - это свойства отвечающие за диапазон значений.
Position - позиция, на которой находится в данный момент индикатор.
i - переменная для перебора целых чисел.
Label - показывает какое сейчас обрабатывается число.
procedure TForm1.Button1Click(Sender: TObject);
var
i, proc, Max : integer;
begin
Max := 50000;
for i:=0 to Max do
begin
proc := ((i * 100) div Max);
Label1.Caption := IntToStr(i);
ProgressBar1.Position := proc ;
Application.ProcessMessages;
// Тут нужный цикл
........................................................
.........................................................
// И после окончания цикла - заполнить прогресс бар на 100% и остановить.
end;
end;
То есть простыми словами, говоря - Сделать "бесконечный" прогресс-бар, который просто показывает, что процесс закачки идёт и после окончания цикла остановить его.
proc := 0;
внутри циклаinc(proc); ProgressBar1.Position := proc ;
так же можете добавить обнулениеif (proc = 100) then poc = 0;
if (i div 100) then обновить бар