Eliminar fsMDIChild desde fsMDIForm

[riddick]

Hola a todos, soy nuevo en este foro y me gustaría que alguien me pudiera ayudar con mi problema.

Bueno mi problema es el siguiente estoy trabajando con formularios MDI y necesito eliminar o cerrar un fsMDIChild desde el form padre y crear otro fsMDIChild, para crear el form padre utilizo lo siguiente:

Código Delphi [-]
        fVentas:=TframeVentas.Create(self);
        fVentas.BorderStyle:=bsNone;
        fVentas.Show;

espero y este explicando bien de ante mano gracias.

[Neftali [Germán.Estévez]]

Hola Riddick, bienvenido al foro.

Empezado por riddick

Bueno mi problema es el siguiente estoy trabajando con formularios MDI y necesito eliminar o cerrar un fsMDIChild desde el form padre y crear otro fsMDIChild, para crear el form padre utilizo lo siguiente:

fVentas:=TframeVentas.Create(self);
fVentas.BorderStyle:=bsNone;
fVentas.Show;

Para cerrar/ocultar el form que has creado deberías bastar con que hagas algo así:

Código Delphi [-]
  fVentas.Hide;
o 
  fVentas.Close;

No se si es a esto a lo que te refieres.

Cuando añadas código Delphi, utiliza TAG's, verás que se lee mejor.

[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.

[ecfisa]

Hola riddick.

Es recomendable hacer una busqueda previa en el foro antes de realizar el post.
Como recordaba haber visto este tema muchas veces, hice una simple busqueda con la palabra 'MDIChild':

post 1
post 2
post 3
post 4
post 5
...

Y hay muchos muchos más...

Saludos.

[cloayza]

Lo que sucede es que el amigo riddick es nuevo por aca y de seguro le falto leer la Guía de Estilo

Saludos

[riddick]

hola gracias a todos por comentar, ya he resueltos el problema utilizando

Código Delphi [-]
fventas.close;

pero me surge otro problema si necesito crear otra vez el mismo formulario ya no me permite crearlo y utilizo lo que me ha aconsejado para que cuando presione el boton nada mas se pueda crear una vez

Código Delphi [-]

       if Assigned(fVentas) Then Exit;

        fVentas:=TframeVentas.Create(self);
        fVentas.BorderStyle:=bsNone;
        fVentas.Show;
        fventas.Left:=0;
        fventas.Top:=0;

y en el close del formulario lo tengo asi

Código Delphi [-]
procedure TframeVentas.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;

de ante mano gracias a todos por ayudarme y disculpen si no me doy a explicar bien, soy nuevo en esto gracias

[ecfisa]

Empezado por riddick

hola gracias a todos por comentar, ya he resueltos el problema utilizando ...

Hola riddik, así como te recomendé que primero busques si ya fué tratado el problema, tengo que destacar
el que hayas posteado de que forma lo solucionaste. Es algo que todos deberían hacer y en la práctica, pocos lo hacen.

Sobre el otro problema, me surge una duda por un nombre en tu código: ¿ Es un TForm o un TFrame ?

Saludos.