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