[Delphi]/[Pascal] Задай вопрос, получи ответ

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

#11

14.09.2007, 17:15

Killerkod

Участник форума

Регистрация: 01.08.2007

Сообщений: 178

Провел на форуме:
486104

Репутация: 239

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

Код:

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 вылазиет другое окно. А то в первом случае не вылазило((

Последний раз редактировалось Killerkod; 14.09.2007 в 17:43..