VPF::Автоматизация загрузки - Форум программистов

Igel

Дата 28.9.2002, 14:48 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 29.8.2002

Репутация: нет
Всего: нет

Проблема такая: Необходимо контролировать процесс загрузки приложения. Есть такой пример:

Код

begin
 Application.Initialize;
 with TForm5.Create(nil) do
 try
   ProgressBar1.Max := 100;
   Show;   // show a splash screen contain ProgressBar control
   Update; // force display of Form5
   Application.CreateForm(TForm1, Form1);
   ProgressBar1.StepBy(25);
   Application.CreateForm(TForm2, Form2);
   ProgressBar1.StepBy(25);
   Application.CreateForm(TForm3, Form3);
   ProgressBar1.StepBy(25);
   Application.CreateForm(TForm4, Form4);

   ProgressBar1.StepBy(25);
 finally
   Free;
 end;
 Application.Run;
end.

Так вот, это не совсем приемлимо, тем более если у меня 100 форм. Хотелось бы нечто вроде:

Код

begin

 Application.Initialize;
 with TForm5.Create(nil) do
 try
   ProgressBar1.Max := length(MyArray);
   Show;   // show a splash screen contain ProgressBar control
   Update; // force display of Form5
   for i:=1 to length(myarray) do
     begin
       Application.CreateForm(MyArray[i].Class, Myarray[i].Name);
       ProgressBar1.StepIt;
     end;
 finally
   Free;
 end;
 Application.Run;
end.

Только вот не могу/не знаю, как такой массив создать... Чевой-то не получается... Подскажите..

--------------------------------------------------------------------------------

-=::BlackCat::=-

Дата 13.6.2004, 22:37 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1456
Регистрация: 12.7.2003
Где: растёт анаша?

Репутация: 1
Всего: 6

Интересная идея, а чо никто так не чего и не сказал?

--------------------

-=::BlackCat::=- user posted image

такой дуратцкий аватар потому как мой 100х100, а такие подгрузить нелзя, движок форума чо сам не может его переделать?? гррр, админ, форум косячит

x77

Дата 13.6.2004, 22:49 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1255
Регистрация: 25.3.2002

Репутация: 19
Всего: 22

сделай одну обычную пустую форму, типа TMySplashedForm, у неё в OnCreate пропиши инкремент ProgreeBar'а и апдейт splash. все остальные формы, на создание которых нужно показывать индикатор, наследуй от неё. а в самом проекте будет просто инициализироать прогресс бар, увеличивать его будут сами твои создаваемые формы.

--------------------

Я никогда не сопротивлялся искушению, поскольку узнал: что мне
не нравится, то меня не искушает. © Джордж Бернард Шоу (Ирландия)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »