[shaman]

У меня на форме есть ProgressBar. Мне нужно написать программный код: свойство Position у ProgressBar должно изменяться со временем, то есть у меня на форме есть Timer и вот например через 5 сек ProgressBar.Position должен стать равным 20% и т.д., а когда Position будет равным 100% то программа будет совершать следующие действия по своему коду.

[4kusNick]

Ну, тебе надо поставить таймер на форму с периодом 5000 миллисекунд. По событию OnTimer прибавлять Position у ProgressBar'а, и там же можно проверять, какой Position у ProgrssBar'а

А еслинадо плавно, то ставь таймер на 500 мсек и расчитай, какой нужно поставить Max у Progress Bar'а и на сколько увеличивать Position (можно оперировать со StepIt)...

[shaman]

Пожалуйста допиши мне код, а то я полный ламер

procedure TForm3.Timer1Timer(Sender: TObject);

begin
ProgressBar1.Position

end;

end.

[Winny]

procedure TForm3.Timer1Timer(Sender: TObject);
begin
ProgressBar1.Position:=0;
ProgressBar1.Position:=ProgressBar1.Position+20;
if ProgressBar1.Postion=100 then
Timer1.Enabled:=false;
{Дальнейшие действия программы}
end;

end.
Свойство Interval у Timer1 ставь на 5000 миллисекунд.

[4kusNick]

Код:

procedure TForm3.Timer1Timer(Sender: TObject);
begin
  ProgressBar1.Position := ProgressBar1.Position + 20;
  if ProgressBar1.Postion >= 100 then
  begin
    Timer1.Enabled := False;
    {Дальнейшие действия программы}
  end
  else
    Exit;
end;

Код:

ProgressBar1.Position:=0;

нельзя помещать в OnTimer,
Обнулять прогресс нужно перед включением таймера

Код:

//...
  ProgressBar1.Position:=0;
  ProgressBar1.Max:=100; // это можно и в Design-time настроить
  Timer1.Enabled := True;
//...

Так будет Вернее

[Winny]

Спасибо 4KusNick за то что поправил меня Я забыл обнулить позицию Прогресс Бара