Tutorial: Splash Screens

[freq.9]

Ich habe nun nicht alle "Lösungen" durchgesehen aber gibt es hier irgendwo eine "richtige" Lösung eines Splash-Screens, der sich erst dann selbst schliesst, wenn die Anwendung komplett geladen ist?

[Matze]

Hi, evtl. hilft dir das hier weiter.

[Nils_13]

So nun noch mein senf: Genial ! Der Timer kann auch auf 0 stehen und es läuft.

Wenn ich die Anwendung beenden kommt ein Fehler (siehe Screenshot).

[SubWorx]

Zitat von sakura:

Jetzt wird die Anwedung gestartet und sämtliche Formulare und Datenmodule geladen. Abschließend setzen wir die Eigenschaft frmSplash.InitializationDone auf True und überlassen die Anwendung dem Benutzer.

Delphi-Quellcode:

begin
  frmSplash := TfrmSplash.Create(Application);
  try
    frmSplash.Show;
    frmSplash.Refresh;
    Application.Initialize;
    Application.CreateForm(TfrmMain, frmMain);
    // (1)
    // weitere Formulare und Datenmodule hier her verschieben (siehe 2)
  finally
    frmSplash.InitializationDone := True;
  end;
  // (2)
  // Standardmäßig erstellte Formulare wird Delphi hier eintragen
  // nach (1) verschieben !!!
  Application.Run;
end.

und wo soll dieser kram hin?
in die TfrmMain.FormCreate? oder wo? steht ja ausser einem begin..end. nix dabei

gruß
Sub

[Khabarakh]

Zitat von SubWorx:

steht ja ausser einem begin..end. nix dabei

Und damit sollte doch klar sein, wo der Code hingehört . In Pascal gibt es nur eine Stelle mit begin/end. im gesamten Quellcode.

Projekt -> Quelltext anzeigen

[dfried]

Na in die Projektdatei (dpr) natürlich!
Wenn du dir den QQuelltext mal genauer anschaust siehst du dort, dass das abschliessende "end" einen "." hat und kein ";" und auch dass das FrmMain erst hier erzeugt wird (Application.CreateForm(TfrmMain, frmMain)!

[MaBuSE]

Zitat von Khabarakh:

Zitat von SubWorx:

steht ja ausser einem begin..end. nix dabei

Und damit sollte doch klar sein, wo der Code hingehört . In Pascal gibt es nur eine Stelle mit begin/end. im gesamten Quellcode.

In diesem Fall ist es das Projekt File (*.dpr), aber die Aussage, dass es nur eine Stelle in einem Pascal Projekt gibt in dem begin...end. vorkommt ist schlichtweg falsch.

In jeder Unit kann begin...end. stehen.

Das end. signalisiert nur das Dateiende.

Delphi-Quellcode:

unit Unit2.pas;
uses 
  Dialogs, 
...
begin
  MessageShow('Huch');
end.

Funktioniert sehr wohl in diesem Beispiel ist es gleichbedeutend mit:

Delphi-Quellcode:

unit Unit2.pas;
uses 
  Dialogs, 
...
initialization
  MessageShow('Huch');
end.

In Turbo Pascal 3.0 gab es z.B. das initialization noch nicht, damals wurde begin verwendet (und das funktioniert immer noch).
Mit dem finalization wurde dann auch das initialization benötigt, da der Compiler ja irgendwie erkennen muß welchen Code er beim Programmende ausführen muß.

[SubWorx]

Ahhhhhh jetzt klappts auch mal

Vielen Dank euch allen.

Falls meine Frage unfreundlich klang, möchte ich mich natürlich dafür entschuldigen.

Abgesehen von meinem Verständnisproblem ist das Tutorial gut ... war genau das was ich brauchte für eine neue Anwendung

Danke an Daniel dafür.

bis denne
Sub

[xZise]

Sry, aber ich muss einfach fragen:
Wie schaffe ich es, dass erst nachdem der Splash geschlossen wird, das andere Fenster sichbar wird?

[Nils_13]

Hm ? Das ist doch normalerweise automatisch so. Bei mir läuft der obige Code perfekt --> Das Fenster wird erst sichtbar, wenn der Splash Screen weg ist.