Progress Bar

[Alexander X]

Здраствуйте,
Как сделать, что бы ProgressBar длился более 1 мин, или таймер надо настроить, или ещё что то, подскажите плиз!

[BOBAH13]

Интересный вопрос. Лижбы тикал, тогда вот:

// если таймер то интервал допустим 1000 - обновление каждую секунду
// для прогрессбара max = 60 - минута
begin
  Timer.Enabled := ProgressBar.Position < ProgressBar.Max;
  ProgressBar.Position := ProgressBar.Position + 1;
end;

// чтобы без таймера
var
  k: DWORD;
begin
  ProgressBar.Max := 60;
  ProgressBar.Min := 0;
  ProgressBar.Position := ProgressBar.Min;
  k := GetTickCount;
  while k + (60 * 1000 {минута}) < GetTickCount do
  begin
    ProgressBar.Position := (GetTickCount - k) / 1000;
    // тут обычно
    Application.ProcessMessages;
  end;
end;

[Alexander X]

большое спасибо! Все получилось