Form richtig destroyen ?

[HolgerCW]

Hallo zusammen,

ich mache folgendes:

Delphi-Quellcode:

If FM_AV = nil then Application.CreateForm(TFM_AV, FM_AV);
FM_AV.Show;

Form wird angezeigt.

Danach mache ich folgendes:

Delphi-Quellcode:

procedure TFM_AV.FormClose(Sender: TObject; var Action: TCloseAction);
begin

 FM_AV.Destroy;

end;

Form wird entfernt.

Wenn ich nun wieder die Form anzeigen lassen will, klappt das nicht mehr, warum ?

Gruss

Holger

[taaktaak]

eigentlich

Delphi-Quellcode:

Form.Release;
Form:=nil

[mkinzler]

Delphi-Quellcode:

procedure TFM_AV.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    Action := caFree;
end;

reicht

Danach existiert das Fenter ja nicht mehr

[HolgerCW]

Vielen dank. Ich muss auf jeden Fall Form := nil machen, egal welche Methode ich von euch benutze.

Danke

Holger

[mkinzler]

Oder auf das automatische Freigeben verzichten und FreeAndNil() verwenden

[HolgerCW]

Das klappt auch. Vielen dank.

[Blup]

Delphi-Quellcode:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if not (fsModal in FormState) then
    Action := caFree;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  FForm1 := nil;
end;

Modal angezeigte Fenster sollte man auf keinen Fall mit caFree freigeben.
Das führt zu willkürlichen Schutzverletzungen in der Methode ShowModal.
In diesem Fall nach ShowModal das Formular selbst freigeben.