Moins ihr !

Wir haben in unsere Anwendung eine ganze Latte an Formularen. Alle diese Formulare werden ja beim Anwendungsstart initialisiert mittels Application.CreateForm.

Nun brauchen wir aber nicht alle Forumlare gleich nach dem Start (eigentlich nur die wenigsten).

Ich habe also mal folgendes versucht ... Eine Anwendung mit 2 Formularen. Auf Form1 einen Button der mittels Show Form2 anzeigt.

Die Projektdatei dazu sieht normal so aus:

markieren

Delphi-Quellcode:

  Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TMainForm, MainForm);
Application.CreateForm(TFormTest, FormTest);
Application.Run;

Nun habe ich mal das Application.CreateForm(TFormTest, FormTest); auskommentiert und beim Buttonevent folgendes gemacht:

markieren

Delphi-Quellcode:

procedure TMainForm.ButtonClick(Sender: TObject);
begin
  Application.CreateForm(TFormTest, FormTest);
  FormTest.Show;
end;

Funktionieren tut es. Aber ich frage mich doch ob da mitunter irgendwas gegen sprechen könnte. Das evtl. Zugriffe auf das Formular nicht klappen weil es mitunter noch nicht erstellt wurde ist mir klar. Aber könnte man das im Prinzip so machen?

Würde man auf diese Weise RAM einsparen weil die Forulare nur noch dann erstellt werden wenn sie auch gebraucht werden?

"Application.CreateForm(TFormTest, FormTest);" solltest du nur einmal ausführen, oder den Speicher nach dem anzeigen wieder freigeben, weil du sonst ein Speicherleck hast. Ich würde es eher so machen:

markieren

Delphi-Quellcode:

procedure TMainForm.ButtonClick(Sender: TObject);
begin
  FormTest := TFormTest.Create;
  try
    FormTest.Show;
  finally
    FormTest.Free;
    FormTest := nil;
  end;
end;

Moin !

Zitat:

"Application.CreateForm(TFormTest, FormTest);" solltest du nur einmal ausführen

Ok da hast du natürlich Recht.

Aber ich sehe das richtig das prinzipiell nix gegen diese Methode spricht?

[quote="MrKnogge"]

markieren

Delphi-Quellcode:

procedure TMainForm.ButtonClick(Sender: TObject);
begin
  FormTest := TFormTest.Create;
  try
    FormTest.Show;
  finally
    FormTest.Free;
    FormTest := nil;
  end;
end;

Nicht bei Show, da diese Aufrufart sofort zurückkommt. So geht das nur bei ShowModal

Eigentlich macht man:
FormTest := TFormTest.Create(<PARENT>); Und nicht vergessen, das FormTest auch wieder freizugeben, wenn es nicht mehr benötigt wird.

und wenn das ganze dynamisch ist kann man sich die globale Variable auch sparen:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TMainForm.ButtonClick(Sender: TObject);
var
  lForm: TFormTest;
begin
  lForm := TFormTest.Create(nil); //oder Application.CreateForm(TFormTest, lForm);
  try
    lForm.ShowModal();
  finally
    lForm.Free;
  end;
end;

ganz wichtig ist das ShowModal in dem Falle denn sonst wird das Form ja erzeugt angezeigt und sofort wieder zerstört. Das ganze geht so fix das man am ende nicht mal was davon sieht.

Aber es würde doch folgendes gehen, oder:

markieren

Delphi-Quellcode:

if FormTest = NIL then
Application.CreateForm(TFormTest, FormTest);

In dem Fall gibt es keine Freigabe des Forulars, aber das wäre nicht so tragisch. Denn wenn es ein User einmal anzeigt braucht er es im Normalfall auch während der ganzen Laufzeit.

Dann müsstest du die Variable FormTest nach dem schliesen aber wieder auf nil setzen, dies geschiet nicht automatisch !

@Bernhard
Klar, mein Fehler, hatte es auch mit ShowModal im Kopf.

man könnte auch einfach im OnDestroy des erzeugten Forms die globale Variable auf nil setzen.

Man könnte auch im FormClose dies machen: Action := caFree;