Programmstartfenster (Splashscreen) anzeigen

  1. in ein bestehendes Projekt eine neue Form einfügen (BorderStyle = bsNone, FormStyle = fsStayOnTop, Position = poScreenCenter, Name = Splashform)
  2. Einen Timer auf die Form plazieren (Interval = 3000)
  3. im OnTimer-Ereignis folgendes eintragen:
  4. void __fastcall TSplashform::FormClose(TObject *Sender, TCloseAction &Action) 
    { 
        Action = caFree;
    }
    
  5. Beliebige Elemente auf der Splashform plazieren
  6. im Projekt-Quellcode (Projekt -> Quelltext anzeigen) folgende Änderungen vornehmen:
  7. #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();
    }
    

Schreibe einen Kommentar