Заставка для программы

[tim21701]

Необходимо сделать заставку при запуске программы, потому как загружается около 3-х секунд... Что бы, хоть как то сделать вид что ничего не "висит" ))

Как сделать, что бы при закрытии заставки - сразу показывалась главная форма? То есть, делать загрузку программу - пока показывается заставка...

[Stilet]

Нетленочка:
http://delphiworld.narod.ru/base/create_splash.html

[tim21701]

Сообщение от Stilet

Нетленочка:
http://delphiworld.narod.ru/base/create_splash.html

Как создать заставку - я и сам знаю )) Так что, ссылка то не в тему...

[Человек_Борща]

Кусок моего DPR'а...

  if AllowedSplashScreen then
  begin
    try
      SF := TSplashForm.Create(Application);
      SF.SkinManager.IsDefault := True;
      SF.Show;
      SF.Update;
      for i := SF.ProgressLoad.MinValue to SF.ProgressLoad.MaxValue do
      begin
        Application.ProcessMessages;
        SF.ProgressLoad.Progress := i + 1;
        if i = 20 then
        begin
          Application.CreateForm(TMainForm, MainForm);
          MainForm.SkinManager.IsDefault := false;
        end;

        if i = 40 then
        begin
          Application.CreateForm(TSettingsForm, SettingsForm);
        end;

        if i = 60 then
        begin
          Application.CreateForm(TSelfUpdatingForm, SelfUpdatingForm);
        end;

        if i = 80 then
        begin
          Application.CreateForm(TAboutForm, AboutForm);
        end;

        if i = 100 then
        begin
          Application.CreateForm(TMainDM, MainDM);
        end;

        Delay(20);
      end;
      SF.Hide;
    finally
      FreeAndNil(SF);
    end;
  end
  else
  begin
    Application.CreateForm(TMainForm, MainForm);
    Application.CreateForm(TSettingsForm, SettingsForm);
    Application.CreateForm(TSelfUpdatingForm, SelfUpdatingForm);
    Application.CreateForm(TMainDM, MainDM);
  end;

  Application.Run;

end.

[tim21701]

Интересно реализовано... Спасибо, сейчас попробую так же и отпишусь... )))

[tim21701]

Человек_Борща могли бы вы чуть подробнее объяснить, что то у меня ничего не получается... (

Хочу, что бы, во время показа заставки - продолжалась загрузка всех форм программы и модулей, и отображался ход выполнения... Но что то не выходит... (

[Человек_Борща]

У меня все это показно=)

[tim21701]

Так вот с Вашим то примером и не работает... Куда его вставлять и что за Allowed...
Обьясните плиз ))))

[Человек_Борща]

Я дал вам кусок собственного кода. Механизм того что вам надо, там реализован и работает на ура. Исходник давать не собираюсь.

[tim21701]

Нет. Ни черта не разобрать....
Человек_Борща Вас никто своими исходниками делится не просит, но и выкладывать их со своими объявленными функциями - как то "не красиво" что ли... Вы бы хоть дали описание к коду.

Что это за i и что за SF? Что за AllowedSplashScreen и что за свойство ProgressLoad?
Или у Вас какие то дополнительные компоненты используются?

Как это сделать, на TForm1 и TForm2 с использованием TProgressBar?

Пример:
Показываем Form2 (заставку) и в это время грузим Form1 - отображая ход загрузки в ProgressBar.

Кажется, что всё вроде элементарно, но вот, реализовать это почему то не получается... ((
Помогите пожалуйста, кто знает!