Перед появлением главного окна во всех серьёзных приложениях сначала Начинаем создание нового приложение командой "New Application" ("Новое Добавьте ещё одну форму: "New Form"("Новая форма") из меню "File" ("Файл"). Из меню "Project" ("Проект") выбрать команду "Options"("Опции"). Зайти на На форму-заставку с закладки System вынести компонент Timer. В его свойстве Timer1.Enabled := false; Это сделано для того, чтобы заставка была видна в период указанного времени – Перейти в файл проекта, нажав Ctrl+F12 и выбрав Project1. Исходный код должен Code 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. Теперь мы внесём сюда немного изменений и код должен стать таким: Code 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. Источник: http://delphiworld.narod.ru/ | |
| |
Просмотров: 657 | | |
Всего комментариев: 0 | |