Tutorial: Splash Screens

[sakura]

Hi Stevie,

dazu musst Du die Hauptanwendung (die DPR-Datei) von Beispiel einfach wie folgend erweitern und lediglich die grünen Zeilen einfügen.

Code:

begin
  frmSplash := TfrmSplash.Create(Application);
  try
    frmSplash.Show;
    frmSplash.Refresh;
    Application.Initialize;
    Application.CreateForm(TfrmMain, frmMain);
  finally
    frmSplash.InitializationDone := True;
  end;
  [color=#008000]while frmSplash <> nil do
    Application.ProcessMessages;[/color]
  Application.Run;
end.

......