Tutorial: Splash Screens

[sakura]

Hi DPler,

immer wieder kommt die Frage danach, wie Splash Screens bzw. "Startbildschirmen" gemacht werden können. Also, die Implementierung ist einfacher, als viele es glauben wollen.

Folgend meine zwei beliebtesten Methoden, Splash Screens zu implementieren.

Dabei ist die grundlegende Vorgehensweise immer identisch. Zum Üben einfach mal mitmachen und dann die präferierte Methode annehmen

Let's roll!

Delphi starten und eine neue Anwendung erstellen. Die Anwendung und das Hauptformular an gewünschter Stelle auf der Festplatte speichern. Anschließend im Objekt Inspektor dem Hauptformular einen beliebigen Namen geben. In den Bespielen heißt dieses frmMain. Damit wir bei unserer Super-Beispiel-Anwendung auch mal einen "vernünftigen" Grund für einen Splash-Screen erzwingen, folgenden Code in das OnCreate-Ereignis einfügen.

Delphi-Quellcode:

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  Sleep(1500);
end;

Dann noch einen Button aufs Form werfen und folgenden Code in des OnClick-Ereignis einfügen.

Delphi-Quellcode:

procedure TfrmMain.btnBoahClick(Sender: TObject);
begin
  Close;
end;

Soweit die Vorbereitung auf Seiten des Hauptformulars. Jetzt gehts an den Splash Screen. Dazu erstellen wir ein neues Formular und speichern auch dieses. Als Namen im Objekt Inspektor bitte frmSplash eingeben (damit die Beispiele funktionieren). Ansonsten ist der natürlich auch frei wählbar.

Jetzt das Splash Formular nach belieben "stylen" und weiter gehts. Im folgenden Beispiel ist einfach ein hübsches Bildchen zu sehen

Weiter gehts. Folgend zu den beiden Standard-Methoden.

• Der nächste Abschnitt erklärt, wie man das Splash-Form dazu bringt mind. 3 Sekunden zu bleiben und mindestens so lange, bis die Anwendung vollständig initialisiert wurde.
• Der übernächste Abschnitt zeigt, wie der Splash Screen solange zu sehen ist, bis der User auf den "Starten" Schalter geklickt hat. Dieses kann er natürlich erst dann tun, wenn die Anwendung vollständig initialisiert ist.

Anschließend kommt der Teil im Projekt, welcher wieder identisch für alle Lösungen ist.

......

[sakura]

Sicher ist sicher, folgende Zeile noch einfügen:

Code:

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  Sleep(1500);
  frmSplash.Label1.Caption := 'Initializing...';
  [color=#008000]frmSplash.Refresh;[/color]
end;

......

[Stevie]

Wann wird der Splash Screen den nicht neu gezeichnet?

[sakura]

Zitat von Stevie:

Wann wird der Splash Screen den nicht neu gezeichnet?

Ja, aber ansonsten kann es passieren, daß das Label nicht neu gezeichnet wird.

......

[Stevie]

Zitat von sakura:

Zitat von Stevie:

Wann wird der Splash Screen den nicht neu gezeichnet?

Ja, aber ansonsten kann es passieren, daß das Label nicht neu gezeichnet wird.

......

Frage: Wann? -> Antwort: Ja ->

Ich wollte doch nur wissen, wann das denn der Fall sein kann, dass das Label nicht neu gezeichnet wird!?

[sakura]

Sorry Wenn Dein Programm mehr macht als nur Zeit verstreichen zu lassen. Also wenn der SplashScreen angezeigt wird und im Hintergrund wirklich die Anwendung geladen wird, Daten analysiert, etc. Der SplashScreen wird nur dann neu gezeichnet, wenn die Anwendung gerade nichts tut ("ThreadState" ist idle).

......

[Stevie]

Ahhh, richtig!
Jetzt wird mir auch klar, warum manchmal ein Programm seine GUI nicht updatet, wenn es ausgelastet ist! Danke sakura! *streichel*

[PlanetofBlade]

Hi,

erst ma n1 zum Tutorial. Hat sofort funktioniert, als ich es einbaute, aber


Ich erstelle hinter dem Splash Screen andere Formulare

Delphi-Quellcode:

    Application.CreateForm(TdasFormular, dasFormular);
    dasFormular.Free;

Jenes Formular wird von mir nach dem Create sofort wieder gefreeed, sodass es eigentlich nicht zu einem Zeichnen des Formulars kommen kann, aber trotzdem sehe ich ein graues Fenster das kurz zuckt, also sich anzeigt und sich dann closed!

Also mein Splash - Screen sollte halt vor allem Modal sein, was im Hintergrund passiert!
Ich versteh das halt nicht warum da das Fenster angezeigt wird, aber ich es erstens Visible := FALSE gesetz habe und zweitens ich es eigentlich gar nicht zum zeichnen auffordere, also mit

    dasFormular.Show; Need Help

tHx schon ma!

gReetz PlaneT

[sakura]

Gegen das "aufblitzen" des Forms kann ich Dir nicht helfen, aber den Splash könntest Du mit FormStykle zu fsStayOnTop im ObjectInspector nachhelfen

......

[PlanetofBlade]

Supi, des funtzt!

tHx nochma für die Hilfe und dein schnelles reagieren

[sakura]

Zitat von PlanetofBlade:

Supi, des funtzt!

Zitat von PlanetofBlade:

tHx nochma für die Hilfe und dein schnelles reagieren

Ich war gerade da

......