Главная страница
    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.57 MB
Время: 0.025 c
1-48125
DenKop
2002-08-01 01:16
2002.08.15
Драйвер устройства


1-48084
dmur
2002-08-04 13:57
2002.08.15
Замена Windows Explorer


1-48062
diMAN
2002-08-02 19:05
2002.08.15
Ошибка при запуске программы


1-48204
KIR
2002-07-30 10:27
2002.08.15
Добавление листа в книгу Excel я


3-48000
Naik
2002-07-27 19:12
2002.08.15
Delphi 6 и BDE





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский