Форум АНТИЧАТ - Показать сообщение отдельно - [Delphi]/[Pascal] Задай вопрос, получи ответ

Я просто другой код вставил

Код:

ProgressBar1.Position := ProgressBar1.Position + 1;

Может из-за этого надо тот удалить...
Да и еще, если добавить тот код, то ProgressBar будет заполняться до бесконечности! Он заполнится, потом с начала и т.д....

Короче вместо этого кода:

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
ProgressBar1.StepIt;
if ProgressBar1.Position = ProgressBar1.Max then Form2.Show;
end;

Я вставил этот:

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   ProgressBar1.Position := ProgressBar1.Position + 1;
   if ProgressBar1.Position = 100 then Form4.Show;
end;

И теперь как только заполняется ProgressBar вылазиет другое окно. А то в первом случае не вылазило((