Долго грузится программа

[Polotenchik]

Всем привет! Сейчас проходит секунд 7 прежде чем появляется при запуске программа. Начал разбираться. Причину нашел. Программа имеет 5-ть форм. Так вот, если в Project1.dpr закоменнитировать все формы, кроме первой:

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};
  //Unit2 in 'Unit2.pas' {Form2},
  //Unit3 in 'Unit3.pas' {Form3},
  //Unit4 in 'Unit4.pas' {Form4};
  //Unit5 in 'Unit5.pas' {Form5};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  //Application.CreateForm(TForm2, Form2);
  //Application.CreateForm(TForm3, Form3);
  //Application.CreateForm(TForm4, Form4);
  //Application.CreateForm(TForm5, Form5);
  Application.Run;
end.

и закоментировать строчку:

implementation

//uses Unit2, Unit3, Unit4, Unit5;

{$R *.dfm}

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

[Alex Cones]

//Application.CreateForm(TForm2, Form2);
//Application.CreateForm(TForm3, Form3);
//Application.CreateForm(TForm4, Form4);
//Application.CreateForm(TForm5, Form5);

Эти формы создавай динамически. В смысле не в dpr, а через 1 сек после появления главной формы. На время их создания можешь даже запустить заставку.

[Polotenchik]

А можно примерчик?

П.С. Кстати если просто закоментировать в dpr, но оставить uses Unit2, Unit3, Unit4, Unit5; тогда толку 0. Мгновенно начинает грузиться если закомментировать все.

[Alex Cones]

Лично мои наработки:

program PRJMain;

uses
  Forms,
  UNTMain in 'UNTMain.pas' {FRMMain},
  UNTBack in 'UNTBack.pas' {FRMBack};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TFRMMain, FRMMain);
  Application.Run;
end.

{В главной форме}
procedure TFRMMain.FormCreate(Sender: TObject);
Var
 FL,FT:Integer;
begin
 CDir:=GCD;
 GST(CDir,FL,FT);
 Application.CreateForm(TFRMBack,FRMBack); {Это то,}
 FRMBack.Show;{Что тебе нужно}
 FRMMain.Left:=FL;
 FRMMain.Top :=FT;
 FRMBack.Left:=FL;
 FRMBack.Top :=FT;
 TMRLac.Enabled:=True;
 FRMBack.IMGBack.Picture:=FRMMain.IMGMain.Picture;
end;

[Polotenchik]

Чет не понял ничего. Вижу добавилось Application.Title := 'XXX';....
Можно разъяснить, как для ослика ? И мне бы еще заставочку сделать все таки...

[Alex Cones]

Сообщение я изменил, подставил другой код, в том я 2 формы за раз создавал, что не есть гуд. Сейчас висит хороший вариант.
А заставка работает так:

1) Включил заставку
2) Создаешь формы:
Application.CreateForm(TFRMBack,FRM Back);
FRMBack.Show;
Application.CreateForm(TFRMBack,FRM Back);
FRMBack.Show;
Application.CreateForm(TFRMBack,FRM Back);
FRMBack.Show;
(На названия форм не обращай внимания, подставляй свои)
3) Выключаем заставку.

[Polotenchik]

Такс. нифига не выходит! Вот смотрите:
1. Dpr привел к виду:

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};
  Unit2 in 'Unit2.pas' {Form2},
  Unit3 in 'Unit3.pas' {Form3},
  Unit4 in 'Unit4.pas' {Form4};
  Unit5 in 'Unit5.pas' {Form5};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

2. В oncreat главной формы дописал:

 Application.CreateForm(TForm2, Form2); {Это то,}
 Form2.Show;{Что тебе нужно}
 Application.CreateForm(TForm3, Form3); {Это то,}
 Form3.Show;{Что тебе нужно}
 Application.CreateForm(TForm4, Form4); {Это то,}
 Form4.Show;{Что тебе нужно}
 Application.CreateForm(TForm5, Form5); {Это то,}
 Form5.Show;{Что тебе нужно}

Удалить:

implementation

//uses Unit2, Unit3, Unit4, Unit5;

{$R *.dfm}

не получается все равно...

3. Компилю. По очереди появляются 2,3,4,5-ая форма и все! А главной даже и нету. Может, если не сложно, примерчик прям скинете? На примере скажем 3-ех форм, и если не затруднит с заставкой. Для Вас это минуты на три я думаю... Я наглядно быстро все пойму.

[russian-stalker]

Show не надо. Используй только когда надо загрузить форму. т.е. просто:
uses Unit2, Unit3, Unit4, Unit5;
...
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm3, Form3);
Application.CreateForm(TForm4, Form4);
Application.CreateForm(TForm5, Form5);

[Polotenchik]

Сообщение от russian-stalker

Show не надо. Используй только когда надо загрузить форму. т.е. просто:
uses Unit2, Unit3, Unit4, Unit5;
...
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm3, Form3);
Application.CreateForm(TForm4, Form4);
Application.CreateForm(TForm5, Form5);

А так просто появляется форма 2 и все.

[Яр|/||< (^_^)]

У меня было под 40 форм и грузилось всё ровно стоко скоко мне надо 5 сек. Я поставил сплэш главной формой тот вылазил, ждал 5 сек и показывал главную форму.