Создание простейших заставок
Нередко при запуске Windows-приложений перед работой приложения появляется заставка (в англоязычной литературе она называется Splash screen), содержащая информацию о запускаемом приложении и, возможно, иные сведения (серийный номер продукта, версию и пр.). Каким образом можно создать такую заставку?
Добавим к нашему приложению форму, свойство BorderStyle ее установим равным bsNone, поместим на нее метку и компонент TTimer. Свойство Interval компонента TTimer установим равным 1000, умноженное на число секунд, в течение которых заставка должна находиться на экране (значение 3000 соответствует 3 секундам).
Рис. 1. Форма, которая должна появиться в качестве заставки
Создадим обработчик события OnTimer компонента TTimer: В случае Delphi он выглядит так:
procedure TForm3.Timer1Timer(Sender: TObject); begin Close; end;
В случае С++Builder он имеет следующий вид:
void __fastcall TForm3::Timer1Timer(TObject *Sender) { Close(); }
В опциях проекта перенесем вновь созданную форму в раздел Available Forms.
Теперь создадим обработчик события OnCreate главной формы приложения, который в случае Delphi выглядит так:
procedure TForm1.FormCreate(Sender: TObject); begin Form3:=TForm3.Create(Application); Form3.ShowModal; Form3.Free; end;
В случае C++Builder этот же обработчик события выглядит так:
void __fastcall TForm1::FormCreate(TObject *Sender) { Form3= new TForm3(this); Form3->ShowModal(); Form3->Free(); }
Теперь перед запуском приложения на экране будет появляться заставка следующего вида:
Рис. 2. Заставка на этапе выполнения
