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.

......

[canada]

also ich habe es jetzt soweit hin bekommen das es mit dem Splash geht, es kommt und dann öffnet sich die hauptform(Hauptdatei), bloß habe ich im hauptfromular auch den folgenden Code enthalten

Code:

procedure TfrmMain.Button3Click(Sender: TObject);
begin
 Form3.ShowModal;
end;

bloß geht das net, er kompiliert es aber, wenn ich deie entsprechenden Button auswähle erhalte ich immer einen Speicherfehler an XYZ "0000000".

aber der Rest geht einwandfrei, die anderen Form`s.

Bild füge ich später bei, geht zur Zeit bloß net (Schule).

thx

[Phoenix]

Zitat von canada:

Code:

procedure TfrmMain.Button3Click(Sender: TObject);
begin
   Form3.ShowModal;
end;

bloß geht das net, er kompiliert es aber, wenn ich deie entsprechenden Button auswähle erhalte ich immer einen Speicherfehler an XYZ "0000000".

Hast Du in der Projektdatei (oder im Formular) vorher auch mit
Form3 := TForm3.Create(application); gemacht (will heissen: Das Formular erzeugt), bevor Du versuchst es anzuzeigen?

[canada]

danke das war es, ...

[canada]

naja, ich bins nochmal

noch eine letzte Frage, wie mach ich das bzw. was muss ich ändern wenn ich das splash auch sehen will wenn ich die Form3 öffne?!

(post oben drüber)

[lorenz]

Hallo Canada,

Ja nicht mit StayOnTop?

MfG

Lorenz

[Phoenix]

Vorher (also vor Form3.Show) den Splashscreen erzeugen, anzeigen und nach dem Show wieder zerstören. - Halt aus der Unit raus aber mit demselben Code wie in der Projektdatei.

[canada]

Phoenix das geht bei mir trotzdem net, allg. oder ich hab wieder einen schönheits Fehler mit drinne ...
könntest du dir das mal anschauen, wäre ganz net

[Unplugged]

Hi, ich hab leider auch ein Problem mit meinem Splashscreen

Der Splashscreen enthält eine Progressbar, die anzeigt inwieweit das Programm seine Daten vorbereitet hat. Die Daten werden dabei im Hauptformular aufbereitet über OnCreate. Nur leider erhalte ich immer eine EExternalException und verstehe nicht wo das Problem ist

Delphi-Quellcode:

begin
 try
  Splash := TSplash.Create(Application);
  Splash.Show;
  Application.Initialize;
  Splash.Update;
  Application.CreateForm(TForm1, Form1);
 finally
    Splash.Hide;
    Splash.Release;
 end;
  Application.Run;
end.

Delphi-Quellcode:

//Hauptformular
procedure TForm1.FormCreate(Sender: TObject);
begin
...
// von hier aus wird die Progressbar und ein Label des Splashscreens gesteuert
end;

Die Unit des Splashscreens enthält keine Funktionen/Ereignisse

Hoffe jemand kann mir weiterhelfen, Danke

[fkerber]

Hi!

Wann genau tritt den die Exception auf?
In welcher Zeile tritt sie auf?
Was steht in der OnCreate des Haupformulars drin?

Ciao fkerber

[Unplugged]

oh man bin ich ein Trottel, es lang lediglich an einem TRegistry.Free, was ausversehen anstelle ans Ende des OnCreate, mitten hinein gelangte. Nach dieser Zeile wurde aber noch auf die Registry zugriffen wodurch dann diese Exception ausgelöst wurde.
War vielleicht gestern schon zu spät für nen klaren Kopf ;)

Danke && Greetz