Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

maxim2 © (2002-08-05 08:22:00)
Привет всем!
Тут короче такое у меня два проекта в одном 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.

maxim2 (2002-08-05 09:21:00) [1]
Все. Спасибо всем заработало.

Lord Warlock (2002-08-05 09:13:00) [2]
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;

maxim2 (2002-08-05 09:06:00) [3]
У тут чего то появилось
поменял

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

на

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

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

lenin (2002-08-05 08:59:00) [4]
А ты пошагово пробовал смотреть.

maxim2 (2002-08-05 08:56:00) [5]
Мах у меня 39
Splashform.Repaint не помогло
И кстати Gause тоже не робит и вообще попробовал изменить Caption У Label тже неизменяет.

Song (2002-08-05 08:42:00) [6]
Либо делайте SplashForm.RePaint перед созданием каждой формы либо используйте TGauge

lenin (2002-08-05 08:40:00) [7]
А у тебя max сколько?

maxim2 (2002-08-05 08:36:00) [8]
Не не помогло

lenin (2002-08-05 08:32:00) [9]
Ты попробуй после каждой смены позиции ProgressBar-а заново его перерисовать.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »