Создание загрузочного окна

[9avrikov]

Как сделать загрузочное окно, перед открытием основного окна, необходимо прогрузить и обработать большой объём данных (в отдельном потоке все прогружается и обрабатывается), после чего заполняется таблица, количество времени на загрузку не известно.
Showmodal - не знаю куда засунуть, если в отдельный поток, то программа ругается

 

[ange007]

Как-то так:

{Выводим уведомление о загрузке}
loaderF := TloaderF.Create(nil);
loaderF.Show;

{Загружаем формы}
loaderF.SetMsg('Загрузка главной формы...');
Application.CreateForm(TmainF, mainF);
loaderF.SetMsg('Загрузка доп. форм: 1...');
Application.CreateForm(ToptionsF, optionsF);
loaderF.SetMsg('Загрузка доп. форм: 2...');
...

{Уничтожаем заглушку}
FreeAndNil(loaderF);
{Запускаем приложение}
Application.Run;​

 

[dustypup]

Я до сих пор использую старьё Для просмотра ссылки Войди или Зарегистрируйся