- in ein bestehendes Projekt eine neue Form einfügen (BorderStyle = bsNone, FormStyle = fsStayOnTop, Position = poScreenCenter, Name = Splashform)
- Einen Timer auf die Form plazieren (Interval = 3000)
- im OnTimer-Ereignis folgendes eintragen:
void __fastcall TSplashform::FormClose(TObject *Sender, TCloseAction &Action)
{
Action = caFree;
}
- Beliebige Elemente auf der Splashform plazieren
- im Projekt-Quellcode (Projekt -> Quelltext anzeigen) folgende Änderungen vornehmen:
#include "Splashheader.h"
...
try
{
Application->Initialize();
Splashform = new TSplashform(Application);
Splashform->Show();
Splashform->Update();
Application->CreateForm(__classid(TForm1), &Form1);
// Hier kann noch mehr stehen (z.b. Initialisierungen anderer Forms)
// ...
Application->Run();
}