Hallo!

In der .dpr gibt es ja bei größeren Projekten eine ganze Reihe von Application.CreateForm-Zeilen. Die ganzen Formulare die da erzeugt werden verzögern den Programmstart zum Teil erheblich.

Da nicht alle Formulare sofort gebraucht werden, habe ich das Erzeugen aus der .dpr in die Haupt-Unit verlegt und führe es dort erst bei der Nachricht WM_AFTERSHOW (Formular fertig auf dem Bildschirm) aus. Dadurch startet das Projekt zwar erstmal blitzschnell, werkelt dann aber noch eine Weile nach.

Entweder lasse ich es werkeln oder ich füge zwischen jedes CreateForm noch ein ProzessMessages, dann ist das Programm soweit arbeitsfähig. Das Problem dabei: Wird während der noch laufenden CreateForm-Schlange ein Formular geöffnet, dann werden keine weiteren CreateForm-Anweisungen ausgeführt. Daher mein Gedanke, das ganze Initialisierungsgeraffel in einen separaten Thread auszulagern.

Was meint ihr dazu?

Grüße
Cody

Müssen denn alle Formulare sofort geladen werden oder ginge das nicht auch bei Bedarf zur Laufzeit?

Im eigenen Thread wirds nicht so einfach, wegen der Synchronisierung.
Ich würde es an deiner Stelle mit dem Application.OnIdle-Event probieren ... da bleibt man im Application-Thread, weiß aber, das die App gerade nix zu tun hat.

Sowas ähnliches hab ich letztens umgesetzt und es funktioniert sehr gut.

Ich würde die Forms (wie DeddyH sagt) wenn möglich erst zur Laufzeit erzeugen:

zusammenfalten · markieren

Delphi-Quellcode:

type
  TFormIrgendwas = class(TForm)
    //...
  public
    class function Execute: Boolean;
  end;

...
...

class function TFormIrgendwas.Execute: Boolean;
begin
  with TFormIrgendwas.Create(nil) do
  begin
    Result := ShowModal = mrOK;
    Free;
  end;
end;

...

procedure TForm1.Button1Click(Sender: TObject);
begin
  if TFormirgendwas.Execute then
    ShowMessage('Fenster mit "OK" geschlossen')
  else
    ShowMessage('Fenster mit "Abbrechen" geschlossen');
end;

class function wird Delphi 7 wohl nicht nehmen wollen IIRC, aber das geht ja auch ganz konservativ.

markieren

Delphi-Quellcode:

if not Assigned(FormBla) then
  FormBla := TFormBla.Create(Application);
FormBla.Show;

Zitat von DeddyH:

class function wird Delphi 7 wohl nicht nehmen wollen IIRC

Klassenmethoden sind auch in D7 möglich, nur Klassenattribute gibt's da noch nicht.

Ah, so war das, ich hatte es nicht mehr genau in Erinnerung. Danke

Zitat von DeddyH:

class function wird Delphi 7 wohl nicht nehmen wollen

doch!

Das haben wir doch bereits geklärt (#10 und #11).

Zitat von Andreas L.:

Ich würde die Forms (wie DeddyH sagt) wenn möglich erst zur Laufzeit erzeugen:

... bzw. in dem Moment, wenn man sie braucht.
Das ist imho die richtigste Lösung.