Bekomme meine Variante vom Splashscreen nicht hin

[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