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

9avrikov

Member
Joined
Mar 23, 2018
Messages
12
Reaction score
0
Как сделать загрузочное окно, перед открытием основного окна, необходимо прогрузить и обработать большой объём данных (в отдельном потоке все прогружается и обрабатывается), после чего заполняется таблица, количество времени на загрузку не известно.
Showmodal - не знаю куда засунуть, если в отдельный поток, то программа ругается
 

ange007

Member
Joined
Sep 23, 2009
Messages
12
Reaction score
9
Age
33
Как-то так:

{Выводим уведомление о загрузке}
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;​
 
Top