Создание заставки при запуске приложения
Похожий вариант создания заставки можно посмотреть здесь.
Перед появлением главного окна во многих приложениях сначала появляется заставка. Чтобы создать заставку, выполняем следующую последовательность действий:
Начинаем создание нового приложение командой «New Application» («Новое приложение») из меню «File» («Файл»)
Добавьте ещё одну форму: «New Form»(«Новая форма») из меню «File» («Файл»). Это окно и будет заставкой. У него нужно убрать рамку с полосой заголовка, установив свойство «BorderStyle» в «bsNone». Теперь можно смело разработать дизайн окна заставки.
Из меню «Project» («Проект») выбрать команду «Options»(«Опции»). Зайти на закладку «Forms»(«Формы») и Form2 из списка автоматически создаваемых форм (Auto-Create forms) перенести в список доступных форм (Available forms)
На форму-заставку с закладки System вынести компонент Timer. В его свойстве Interval установить значение 5000, а в событии OnTimer написать:
|
1 |
Timer1.Enabled := false; |
Это сделано для того, чтобы заставка была видна в период указанного времени – 5000 миллисекунд, т.е. 5 секунд.
Перейти в файл проекта, нажав Ctrl+F12 и выбрав Project1. Исходный код должен выглядеть так:
|
1 2 3 4 5 6 7 8 9 10 11 |
program Project1; uses Forms, Unit1 in 'Unit1.pas' {Form1}, Unit2 in 'Unit2.pas' {Form2}; {$R *.RES} begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end. |
Теперь мы внесём сюда немного изменений и код должен стать таким:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 |
program Project1; uses Forms, Unit1 in 'Unit1.pas' {Form1}, Unit2 in 'Unit2.pas' {Form2}; {$R *.RES} begin Application.Initialize; Form2 := TForm2.Create(Application); Form2.Show; Form2.Update; while Form2.Timer1.Enabled do Application.ProcessMessages; Application.CreateForm(TForm1, Form1); Form2.Hide; Form2.Free; Application.Run; end. |