Procedure TForm2.FormCreate(Sender
// не удалась, то выводится сообщение об ошибке
end;
end;
Этот готовый примерчик можно скачать здесь.
Далее скажу, что для действительно огромных программ с большим количеством компонентов можно организовать что-то наподобие процесса загрузки Corel, где отображено инициализации приложения, создания ядра системы и т.п. бесполезную информацию. Это освобождает пользователя от немного занудного лицезрения одной и той-же картинки, инстинктивно привлекая внимание к движущейся части. Пользователь как-бы совместно переживает весь процесс загрузки, осмысливается понять такие тяжело доступные понятия, как например "создание контейнера баз данных".
Для этого необходимо установить в форму компонент метки, например TLabel и в нужных местах файла проекта менять ее текст.
Form2.Label1.Caption:='создание главного окна';
Form2.Label1.Update;
Application.CreateForm(TForm1, Form1);
Form2.Label1.Caption:='создание окна Form3';
Form2.Label1.Update;
Application.CreateForm(TForm3, Form3);
// и т.д. и т.п.
Еще можно и ProgressBar привязать. Тогда вы получите действительно живую и изначально, еще до самого запуска, навороченную программу. Но как известно, важна не только обертка, но еще и начинка...
С уважением, ведущий уроков Semen semen@krovatka.net
