Eliminar De Memoria Form Mdi

[[enecumene]]

Hola, intentaste de esta forma?:

Código Delphi [-]
procedure TForm2.Proveedores1Click(Sender: TObject);
begin
Application.CreateForm(TForm4, Form4);
Form4.Show;
end;

o

Código Delphi [-]
procedure TForm2.Proveedores1Click(Sender: TObject);
begin
Form4:=TForm4.Create(self);
Form4.Show;
end;

Saludos.

[citlalliDgp]

Las dos opciones que me diste me funcionan, enecumeme. Y cada vez que cierro el form, puedo volverlo a abrir. El problema es, que no puedo evitar que cada vez que invoque el form "Registrar Productos" (por ejemplo), me esté abriendo o creando una nueva ventana. Es ésto lo que no puedo solucionar.

[yusnerqui]

Esto es una adaptación de un código que tenía en una aplicación mdi, que a la ves es una adaptación de un código que saqué de la cara oculta del delphi 4 que trata sobre el tema.

Te sujiero que busques en ese libro si lo de abajo no te funciona.

Código Delphi [-]
Procedure TPrincipal.BuscaForma;
var i : Byte;
begin
 if MDIChildCount > 0 then
   for i := MDIChildCount -1 downto 0 do
     if MDIChildren[i] is TForm4 then     
       begin        
         TForm4(MDIChildren[i]).Show;
         Exit;
       end;
Form4:=TForm4.Create(Application)
end;

Saludos

[[maeyanes]]

Hola...

El problema que puedes tener es que cuando la variable Form4 después de destruir la forma no queda apuntando a nil, así que al hacer:

Código Delphi [-]
if not Assigned(Form4) then

la segunda vez, esta te devolverá falso...

Para corregir esto puedes hacer algo como esto en Form4

Agregas el evento OnDestroy:

Código Delphi [-]
procedure TForm4.OnDestroy(Sender: TObject);
begin
  Form4 := nil
end;

Saludos...