Люди не могу разобраться с заставкой

← →
maxim2 © (2002-08-05 08:22) [0]

Привет всем!
Тут короче такое у меня два проекта в одном 7 форм а в другом 40
и я решил сделать для них заставку с progressbar"ом. Но проблема в том что в проекте где 7 форм все работает, progressbar отображает процесс загрузки а вот где 40 форм нет и я немогу разобраться почему ведь КОД ОДИНАКОВЫЙ И ВСЕ НАСТРОЙКИ ТОЖЕ
А код файла проэкта такой:

begin
Application.Initialize;
SplashForm := TSplashForm.Create(Application);
SplashForm.Show;
SplashForm.Update;

Application.CreateForm(TForm1, Form1);
SplashForm.progressbar1.position:=1;
Application.CreateForm(TForm3, Form3);
SplashForm.progressbar1.position:=2;
..........
..........
..........
Application.CreateForm(TForm39, Form39);
SplashForm.ProgressBar1.Position:=39;

SplashForm.Hide;
SplashForm.Free;
Application.Run;
end.

← →
lenin © (2002-08-05 08:32) [1]

Ты попробуй после каждой смены позиции ProgressBar-а заново его перерисовать.

← →
maxim2 © (2002-08-05 08:36) [2]

Не не помогло

← →
lenin © (2002-08-05 08:40) [3]

А у тебя max сколько?

← →
Song © (2002-08-05 08:42) [4]

Либо делайте SplashForm.RePaint перед созданием каждой формы либо используйте TGauge

← →
maxim2 © (2002-08-05 08:56) [5]

Мах у меня 39
Splashform.Repaint не помогло
И кстати Gause тоже не робит и вообще попробовал изменить Caption У Label тже неизменяет.

← →
lenin © (2002-08-05 08:59) [6]

А ты пошагово пробовал смотреть.

У тут чего то появилось
поменял

Application.CreateForm(TForm1, Form1);
SplashForm.progressbar1.position:=1;

на

SplashForm.progressbar1.position:=1;
Application.CreateForm(TForm1, Form1);

показалось первое деление на progressbar"e
поменяль все остальные по прежнему ничего короче чтото происходит после того как первая форма создастся. А что я непонял.

1.В форме сплеша у пргрессбара step - 1

> Application.Initialize;
> SplashForm := TSplashForm.Create(Application);
> SplashForm.Show;
> SplashForm.Update;

SplashForm.progressbar1.Max:=39;

2.

....
Application.CreateForm(TForm3, Form3);
SplashForm.progressbar1.StepIt;
SplashForm.Update;
....

у меня в программе прекрасно работает аналогичный код на 38 позиций.

3. Лучше делать так:

> SplashForm := TSplashForm.Create(Application);

try
...

SplashForm.Hide;
finally
SplashForm.Free;
end;

> Application.Run;

Все. Спасибо всем заработало.

Люди не могу разобраться с заставкой Найти похожие ветки