Советы пользователям Delphi и C++Builder


         

Создание простейших заставок


Нередко при запуске 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. Заставка на этапе выполнения



Содержание раздела