[delphi-en] Re: Closing and freeing a form from itself

[mikcaau]

Have this

Procedure TMainForm.ChildFormClose(Sender : TObeject);
begin
  //child form calls this routine in its onClose

  FFormVar := nil;

end;


Function TMainForm.MakeChildForm(Sender : TObject) : TChildForm;
begin
  //this routine creates a child form
  if FFormVar <> nil then begin
    FFormVar := TChildForm.Create(self);
    FFormVar.OnClose := ChildFormClose;

   //other create activities here

  end;
  result := FFormVar

end;


Mick