Тщательно написанная программа Windows отображает меры предосторожности запуска, называемую Splash Screen. Используя немного контента, вы можете добавить много цвета на дисплей программы.
Поскольку сам проект создает главное окно программы, и экран разрыва запуска должен появиться перед созданием главного окна, файл проекта должен создать свой собственный экран запуска. Это означает, что пользователь должен изменить исходный код для создания файла проекта, который обычно не требуется в Delphi Programming. Следующий процесс вводит процесс настройки экрана распыления.
1. Начните новый проект. Назовите форму Mainform и установите его свойство подготовителя в SplashIndemo. Сохраните этот проект в каталоге, такой как C: Projectssplashin. Назовите Mainform Unit Main и назовите файл проекта Splashin.
2. Вставьте кнопку компонента в Mainform. Измените свойство «Имя» на кнопку на выездную кнопку и его свойство подготовителя на выход. Создайте процессор для Onclick Event of Exitbutton, вставив близкий оператор между ключевыми словами начала и конечного процесса.
3. Выберите файл | Команда новой формы или нажмите кнопку «Новая форма скорости». Добавьте новую форму.
4. Измените свойство названия этой формы на Splashform и удалите его свойство подписи. Кроме того, измените его свойство BordersTyle на Bsnone и установите три подростка под Bordericons на ложь.
5. Сохраните этот проект. Когда Delphi побуждает читателя предоставить имя файла устройства, убедитесь, что текущий каталог является правильным каталогом. Введите Splash для имени файла блока Splashform.
6. Установите свойство включенного Splashform на false. Это один из редких случаев, когда пользователи не хотят предоставлять команды клавиатуры и мыши для Windows. В этом примере мы хотим, чтобы программа имела полный контроль над отображением Splashform.
7. Поскольку окно не имеет контура, вставьте объект компонента коника из дополнительного класса компонентов. Это помогает определить края окна. Установите свойство Align Bevel1 в Alclient. В то же время измените свойство формы объекта на BSFrame и измените его свойство стиля на BSRAID. Эти значения определяются пользователем.
8. Вставьте компоненты, которые вы хотите использовать в Splashform, не вставляйте здесь какие -либо кнопки или другие интерактивные элементы управления. Само приложение отображает и удаляет диалоговое окно «Запуск разрыва».
9. Выберите меню проекта. Выделите всплывающее меню Project Project. Выберите команду параметров. В диалоговом окне «Сгенерированные параметры проекта» выберите метку страницы форм. Обратите внимание, что Mainform и Splashform находятся в списке автоматически созданных форм. Выделите каждую форму и нажмите правую кнопку мыши, чтобы переместить ее в доступную форму. Все формы Delphi автоматически создаются в памяти во время выполнения, которая потребляет память и системные ресурсы. В таком случае программа создает форму во время выполнения, и читатель должен удалить форму из автоматически созданного списка. Закрыть окно ProjectOptions.
10. Далее измените исходный код проекта, чтобы отобразить диалоговое окно распыления перед отображением главного окна. Здесь вам нужно вставить операторы в файл проекта, чтобы соответствовать файлу проекта SPLASH.DPR. Исходный код проекта заключается в следующем:
Программа Project3;
Использование
Формы,
Main in 'main.pas' {mainform},
Splash in 'splash.pas' {splashform};
{$ R *.res}
Начинать
Splashform: = tsplashform.create (Application);
Splashform.show;
Splashform.update;
Application.createform (tmainform, mainform);
Splashform.close;
Application.Run;
конец.
11. Если программа будет скомпилирована и запускается в настоящее время, она будет отображать и удалить диалог, который очень быстро разбрызгивает, так что у пользователя может не быть возможности его увидеть. Чтобы заставить диалоговое окно оставаться видимым в течение нескольких секунд, выберите основную форму программы. Создайте процессор для команды Oncreate формы. Добавьте длинную целочисленную переменную, называемую STOPTIME, перед ключевым словом. Вставьте два оператора между началом и конец: один - вызов функции Windows GetTickCount. Установите время остановки на количество секунд, которые работает Windows; Список программ заключается в следующем:
единица главного;
интерфейс
Использование
Windows, сообщения, Sysutils, классы, графика, управления, формы, диалоги,
STDCTRLS;
тип
Tmainform = class (tform)
Exitbutton: Tbutton;
процедура exitButtonClick (отправитель: tobject);
Процедура FormCreate (отправитель: Tobject);
Частный
{Частные объявления}
публичный
{Публичные объявления}
конец;
вар
Mainform: tmainform;
Выполнение
{$ R *.dfm}
Процедура tmainform.exitButtonClick (отправитель: tobject);
Начинать
закрывать;
конец;
Процедура tmainform.formcreate (отправитель: tobject);
вар
Stoptime: Longint;
Начинать
Stoptime: = GetTickCount Div 1000;
В то время как ((getTickCount Div 1000) ＜ (остановка+2))
Сон (1);
конец;
конец.
12. Нажмите F9, чтобы скомпилировать и запустить программу.