Progressbar während Objekterzeugung aktualisieren

[Echtet]

Hallo,

Hier erst mal etwas Code:

Delphi-Quellcode:

  If DataModule1.IBDatabase.Connected = True then //wenn die Verbindung funktioniert...
  begin
    Screen.Cursor := crAppStart;
    KlangAbspielen(login);
    ProgressBarLogin.Position := 0;
    ProgressBarLogin.MarqueeSize := 50;   //Einschalten der ProgressBar
    Application.Processmessages;  <-- hier zusätzlich eingefügt
    Application.CreateForm(TfrmMain, frmMain); //Objekt erzeugen
    Application.Processmessages;  <-- hier zusätzlich eingefügt
    frmMain.Show;
    frmLogin.Visible := False;  //Anmeldemaske ausblenden
  end;

Ich habe nun zweimal das "Application.Processmessages" eingefügt, leider bringt es keine Verbesserung. Ich müsste eigentlich während der Objekterzeugt weitere Application.Processmessages einfügen. Aber wie geht das?

Zitat:

Die Erzeugung der Komponenten oder hast du da aus Versehen noch etwas in FormCreate oder so, das so lange dauert?

Tja, es sind schon so ca. 200 Komponenten (auf mehreren Registerblättern verteilt).

In FormCreate steht folgendes:

Delphi-Quellcode:

procedure TfrmMain.FormCreate(Sender: TObject);
begin
 LogEinschalten; //Verwendung der Komponente HotLog
 UngesicherteRegisterListe := TStringList.Create; //Liste erzeugen
 DokumentBMP := TBitmap.Create; //wegen Scanner-Funktionalität
 DokumentJPG := TJPEGImage.Create;
 Application.OnMessage := MyMsg; //wegen Scanner-Funktionalität
 TWOpenDSM(Application.Handle); //wegen Scanner-Funktionalität
end;

Ich werde mal die Zeiten für die obigen Befehle messen...

Gruß,
Echtet