Eliminar fsMDIChild desde fsMDIForm

[cloayza]

Supongamos que en este boton es donde creas los formularios fsMDIChild.

Código Delphi [-]
procedure Tform1.button1Click(Sender:TObject);
begin
        fVentas:=TframeVentas.Create(self);
        fVentas.BorderStyle:=bsNone;
        fVentas.Show;
end;

Cada vez que ejecutes este codigo se creara un nuevo formulario. Si lo que deseas es que solo se cree uno y cuando lo cierres se elimine de memoria deberias hacer lo siguiente.

Código Delphi [-]
procedure Tform1.button1Click(Sender:TObject);
begin
        {Si el formulario esta creado, sales del procedimiento}
        if Assigned(fVentas) Then Exit;

        {Si no esta creado lo crea}
        fVentas:=TframeVentas.Create(self);
        fVentas.BorderStyle:=bsNone;
        fVentas.Show;
end;

En el evento OnClose del Formulario fVentas debes agregar esta linea de codigo

Código Delphi [-]

procedure TfVentas.Button1Click(Sender: TObject);
begin
       fventas.Close;
end;

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

Saludos.