Ответ:
Для начала, создадим новое окно, которое у нас и будет SplashScreen.
File->New->Form.
Новую форму перенесем в Aviable forms, для этого идем в Project->Options.
Дальше подключаем к Unit1 новую форму:
#include "Unit2.h"
После этого, на новую форму, помещаем компонент TTimer.
Для него пишем такой обработчик
void __fastcall TForm2::Timer1Timer(TObject *Sender)
{
Close();
}
Дальше, пишем обработчик события для главной формы OnCreate:
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Form2 = new TForm2(this);
Form2->ShowModal();
Form2->Free();
}
SplashScreen-форме можно придавать разные виды и настройки.
Видимой она будет одну секунду (Timer1->Interval = 1000).
Чтобы заставка была видна подольше, измените свойство Interval у Timer1
например на 3000 (3сек.)
|
