SplashScreen Problem

[Störtebeker]

Du meinst so:

Delphi-Quellcode:

program Project; 

{$mode objfpc}{$H+} 

uses 
  {$IFDEF UNIX}{$IFDEF UseCThreads} 
  cthreads, 
  {$ENDIF}{$ENDIF} 
  Interfaces, // this includes the LCL widgetset 
  Forms 
  { you can add units after this }, main, robots, splash; 

{$IFDEF WINDOWS}{$R manifest.rc}{$ENDIF} 

begin 
  Application.Initialize; 

  Form3 :=TForm3.Create(Application); 
  with TForm3.Create(nil) do 
  try 
  Form3.show; 
  Form3.Update; 

  Application.Initialize; 
  ProgressBar1.Max:=100; 
  Show; 
  Update; 
  Application.Title:= 'Project'; 
  Application.CreateForm(TForm1, Form1); 
  ProgressBar1.StepBy(30);
  ProgressBar1.Refresh;
  Application.CreateForm(TForm2, Form2); 
  ProgressBar1.StepBy(80);
  ProgressBar1.Refresh; 
  Finally 
  free; 
  Form3.visible :=false; 
  end; 
  Application.Run; 
end.

bringt leider auch nichts.