Bekomme meine Variante vom Splashscreen nicht hin

[DoktorD]

Hi. Habe mich wegen eines SplashScreen an foldenden Post hier im Forum gehalten.

SplashScreen Tutorial

Funktioniert auch soweit ganz gut, nur sieht man meine Anwendung schon, wenn ich den SplashScreen sehe.

Ich will es so haben:
Ich starte die Anwendung und sehe meinen Splashscreen ca. 3 Sekunden. Wärenddessen wird im Hintergrund meine TFrmApplication vollständig geladen und dann erst angezeigt.

Hier mein Code bis jetzt:

Delphi-Quellcode:

begin
  frmSplash := TfrmSplash.Create(Application);
  try
    frmSplash.InitializationDone := False;
    frmSplash.Show;
    frmSplash.Refresh;

    Application.Initialize;
    Application.CreateForm(TFrmApplication, FrmApplication);
    // (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.

Danke schon mal

[DoktorD]

Kann mir denn niemand antworten? Ich hab das ganze WE rumprobiert und immer noch net hinbekommen.

[Assertor]

Hallo DoctorD!

Hast Du bei FrmApplication mal Visible auf False gesetzt und an der stelle, wo Deine Daten geladen werden dann Visible := True probiert?

Gruß winkel79

[DoktorD]

So ähnlich hatte ich mir das auch gedacht. Aber wo muss ich denn dann die Form im Code auf Visible setzen?

[Assertor]

Hi,

ich würde einfach das Splash Form dazu verwenden, da der ja erst ausgeht, wenn alles geladen ist, oder?

also von:

Delphi-Quellcode:

procedure TfrmSplash.SetInitializationDone(const Value: Boolean);
begin
  FInitializationDone := Value;
  Close;
end;

ändern zu

Delphi-Quellcode:

procedure TfrmSplash.SetInitializationDone(const Value: Boolean);
begin
  FInitializationDone := Value;
  if Assigned(FrmApplication) then FrmApplication.Visible := True;
  Close;
end;

Natürlich muß in die Uses Clause des Splash Screen nun auch die Unit vom FrmApplication. Das sollte Delphi nach dem Compile Error aber automatisch anbieten (je nach Delphi Version).

Gruß winkel79

[DoktorD]

Habe das grad nochmal ausprobiert.

Also, wenn ich die Form standardmäßig Visible := false setze, und ich das Programm starte ohne im Code irgedwo Visible:=true zu setzte, dann wird die Form trotzdem visible.
Warum?

[SirThornberry]

wenn du es so haben willst musst du dein Mainform auf nicht sichtbar setzen (Application.ShowMainForm) und dann eben per Zeit kontrollieren das dein Splashscreen mindestens 3 Sekunden gezeigt wird. Nach 3 Sekunden blendest du dann das MainForm (Application.MainForm.Show) manuell ein.

[DoktorD]

Habe jetzt beim OnCreate des SplashScreens mein Application.ShowMainForm := false gesetzt und dann nach dem Laden

Delphi-Quellcode:

procedure TFrmSplash.SetInitializationDone(const Value: Boolean);
begin
  FInitializationDone := Value;
  if Assigned(FrmApplication) then Application.ShowMainForm := true;
  Close;
end;

Aber meine Mainform wird von Anfang an angezeit. Und Visible im OI steht auch noch auf false.

Warum ist das so?

[Assertor]

Setz mal Application.ShowMainForm := False; im OnCreate des FrmApplication, nicht beim Splash-Form.

Und im Splash dann:

Delphi-Quellcode:

procedure TFrmSplash.SetInitializationDone(const Value: Boolean);
begin
  FInitializationDone := Value;
  Application.MainForm.Show;
  Close;
end;

[SirThornberry]

Zudem seh ich noch nirgends das du irgendwo 3 Sekunden wartest bzw. die Differenz zwischen 3 Sekunden und der Zeit die zum erstellen des Forms verbraucht wird.