Destrucción de Formas MDIChild

[jhonny]

Así, ¿Te funciona?:

Código Delphi [-]
  if Application.MainForm.MDIChildCount = 1 then
  begin
    Application.MainForm.MDIChildren[0].Close;
  end;

Aunque realmente podrias ser:

Código Delphi [-]
  if Application.MainForm.MDIChildCount = 2 then
  begin
    Application.MainForm.MDIChildren[0].Close;
  end;

Ya que no estoy seguro de que cuando se este creando dicho TForm nuevo, el ChildCount sea igual a 1 o 2.

//Edito: Ese codigo es asi, siempre y cuando el formulario principal de tu aplicación sea el formulario MDI "padre". De lo contrario, no debe ir MainForm si no, el nombre de dicho formulario MDI "padre".

[MaMu]

Empezado por jhonny

Código Delphi [-]
 

  if Application.MainForm.MDIChildCount > 0 then   begin

    Application.MainForm.MDIChildren[numero_mdi_child].Close;
  end;

Y si lo quiciera generalizar, como obtengo el numero del MDIChild que esta abierto?
Saludos

[MaMu]

SOLUCIONADO

Pero ahora tengo una duda, cada vez que creo y destruyo un MDICHild, este se va creando pero se forma en una posicion diferente, es decir, en cascada, a pesar de ser el unico creado. Existe alguna forma de evitar ese efecto como de maximizacion cada vez que se crea la forma MDIChild??? porque esteticamente queda feo, osea creo la MDIChild maximizada, y me gustaria que la muestre ya maximizada, sin ese efecto visual de maximizarse. No se si se entiende lo que pregunto.

[jhonny]

En alguna parte, después de cerrar el MDIChild coloca:

Código Delphi [-]
 
ShowWindow(Handle, SW_MAXIMIZE); //Donde Handle puede ser por ejemplo: Form2.Handle o el que necesites maximizar.

Espero que funcione.

[MaMu]

Empezado por jhonny

En alguna parte, después de cerrar el MDIChild coloca:

Código Delphi [-]
ShowWindow(Handle, SW_MAXIMIZE); //Donde Handle puede ser por ejemplo: Form2.Handle o el que necesites maximizar.

Espero que funcione.

No me funciona, se sigue produciendo el mismo efecto. Osea, se crea el MDIChild y si pudieramos verlo en cámara lenta, notariamos como se crea la ventanida y al cabo de cierto tiempo esta se agiganta hasta ocupar el area cliente. Intente engañar su creacion, forzando su tamaño MaxWidth y MaxHeight (en constraints) y mejora notablemente el efecto. Pero no se como hacer, digamos, para "resetear" la posicion inicial de cualquier ventana hija, esto es, cuando se van creando, se posicionan en cascada y aunque sea una sola la que siempre se crea, al destruir esta y crear otra, esta nueva ventana hija, toma la posicion del segundo lugar, y no la del primero, y asi hasta llegar a la X posicion, en donde luego vuelve a empezar. Claramente en las primeras el efecto no se nota tanto, pero en las otras si, y es bastate feo. Como puedo solucionar esto? Imaginense que crean una ventana hija, de 10 x 10, y al cabo de milisegundos explota y se expande hasta ocupar una area de 300 x 300, queda bastante feo el efecto visual.

Saludos