Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.08.15;
Скачать: [xml.tar.bz2];

Вниз

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

 
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]

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


 
maxim2   (2002-08-05 09:06) [7]

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

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

на

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

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




 
Lord Warlock   (2002-08-05 09:13) [8]

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:21) [9]

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



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.08.15;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.006 c
14-48307
RomanKulhc
2002-07-18 19:23
2002.08.15
Vinchestery Fujitsu


14-48287
Magystr
2002-07-20 21:53
2002.08.15
Где можно скачать звуки?


6-48244
T2
2002-05-31 09:45
2002.08.15
Подключение к I-Net


3-47935
garry
2002-07-25 09:34
2002.08.15
Рамка в DBGrid е.....


3-47965
ShuraGrp
2002-07-25 12:56
2002.08.15
Ошибка insert select





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский