Не привязанный прогресс при запуске приложения

[altcore]

Уж и не знаю, как еще можно объяснить...
Как создать и показать форму в отдельном потоке? Мне нужно, чтобы форма работала в то время, когда компилируются другие формы проекта. Они компилируется около 5 секунд, поэтому искусственный sleep и прочее мне ни к чему. Возможно так сделать или нет?

begin
  Application.Initialize;

 //создаем и запускаем сплэш
  ...
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  ...
// убиваем сплэш
  Application.Run;

[DomiNick]

когда компилируются другие формы проекта. Они компилируется около 5 секунд

Хм... В смысле "компилируются формы"? Пока они все не сделают свои OnCreate чтоль?
А это чем же вы так завесили инициализацию форм что оно аж 5 секунд думает? о__О

[altcore]

В OnCreate одной из форм компилируются 10 скриптов (~144кб).

[DomiNick]

Хм..... Ну ладно... А там есть куда Application.ProcessMessages воткнуть в тот OnCreate?
Если нет, то придётся только в другом потоке...

[GunSmoker]

Никак. VCL - однопоточна.

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

P.S. Даже если бы VCL допускала бы создание окна во вторичном потоке - вас бы это не спасло. Потому что этот поток был бы обязан обслуживать окно до конца его жизни.

[altcore]

В принципе есть, можно 9 раз между скриптами вставить. Но хочется разобраться с реализацией с помощью потоков.

upd.

GunSmoker, в принципе такой ответ меня устраивает, а то я столько способов уже перепробовал. )

[evg_m]

applicatin.createform(form1,TMainForm);
application.createform(formprogress, TFormProgress);
application.onIdle:=formprogress.DoInitOthar;
application.run;

Tforrmprogress.DoInitOther(sender: Tobject; var done: boolen);
begin
  progresbar.position:=0;
  application.processnessage;
  application.createform(form2,Tform2);
  progresbar.position:=1;
  application.processnessage; 
  .......
  application.onIdle:=nil;
end;

[GunSmoker]

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

GunSmoker, в принципе такой ответ меня устраивает, а то я столько способов уже перепробовал. )

В таком случае в форме не должно быть ничего (поэтому все формы создадутся быстро). А вся работа должна сидеть в отдельном объекте - выделите новый модуль под это дело, перенесите в него весь код из ваших форм (возможно, нужно будет создать несколько модулей или объектов, если форм и кода у вас много). Код, который остаётся в формах, должен манипулировать только самой формой - загреить кнопку при нажатии, перетащить панельки и т.п. Для реальной работы форма просто вызовет метод рабочего объекта. И вот этот самый вызов вы можете спокойно выносить в поток.

Вероятно, подобная переделка займёт много времени, если у вас уже есть большой написанный проект. Но не стоит отказываться от этого, потому что писать большой проект в стиле "весь код кидаю в обработчики событий формы!" - глупость чистой воды. Вы же даже тесты к такому коду не прикрутите.

[GunSmoker]

Ссылка в тему.