Error al Crear Ventanas dinámicamente

[[eduarcol]]

no se si fue error al copiar y pegar pero revisa el codigo del form2 en el finally

finally
  Toolbutton1.Enabled:= true; //No deberia ir Toolbutton2.Enabled := True?????
  Form2_Sub:=nil;  
end;

Y con respecto a Form2_Sub:=nil; utiliza mejor FreeandNil(Form2_Sub);

Otra cosa no es un entorno mdi el que trabajas es un entrono modal, el entorno mdi no debe bloquear el menu de las otras opciones al ingresar a una pantalla

[[Lepe]]

Gracias por responder.

Empezado por eduarcol

no se si fue error al copiar y pegar pero revisa el codigo del form2 en el finally

Tienes toda la razon, Perdonad, eran errores al tiempo de postear el mensaje. he revisado el codigo y pone Toolbutton2.enabled:= True;

Empezado por eduarcol

utiliza mejor FreeandNil(Form2_Sub);

La SubVentana tiene Action := cafree, por tanto cuando llega al finally no existe ya, y el FreeandNil me arroja un Access Violation. He hecho muchas pruebas, y sigo haciendolas, pero la verdad, eso del burro que toca la flauta no va conmigo; me gusta Saber lo que hago,aunque desde luego no es el caso

Empezado por eduarcol

Otra cosa no es un entorno mdi el que trabajas es un entrono modal,

No me expliqué con mucha claridad, es un entorno MDI, ya que la ventana principal es un MDIForm. Form1 y Form2 son MDICHILD. La SubVentana si es Modal como bien dices.

He mirado el mensaje de Liberar Formularios en este mismo foro que más o menos explica la implementación de FreeAndNil,( lo que dice Delphi.com.ar ), pero no termino de comprender "mi error" o por lo menos, saber si lo que hago tiene errores. Todos sabemos que: "no obtener mensajes de error, no significa que algo esté bien".

Saludos, y gracias por interesarte, espero haber aclarado algo más el tema

[Amilius]

Seguro que esta parte está bien??

.Create(application);

para Tform2.

"application" en la segunda ventana hija de la primera ventana hija, sería bueno que chequees la documentación de ayuda para ver cual es el parámetro indicado para ese constructor.

<<
Create creates and initializes a new TForm object or an object derived from TForm.

constructor Create(AOwner: TComponent); override;

Description

Use Create to create and initialize a new TForm object or an object derived from TForm. AOwner is the owner of the TForm object.

Create calls the CreateNew method, passing it AOwner, and then performs initialization tasks if the object is derived from TForm.

>>

AOwner no debería ser la ventana hija (para crear la ventana "nieta") en lugar de "application" << .Create(self); >> ?

[[Lepe]]

Por ahí no se me habia ocurrido investigar.... Gracias por el rayo de luz.

[[eduarcol]]

de todas formas hay algo que no me cuadra aun, si las ventanas estan como modales porq deshabilitar los botones si la ventana modal no te deja acceso a ellos????

[[Lepe]]

Muy hábil Eduardo

como ya era bastante dificil intentar explicar cual era el fallo, he omitido muchos detalles, que yo creia sin importancia..... justo ahí era donde está el fallo.

La SubVentana tiene un Preview de QReports, en lugar de un ShowModal, hacia un Preview del QReports. (eso para ustedes lo cambia todo, yo pensaba que era igual que un showmodal )

Si mostraba varias Subventanas (desde distintas opciones del programa) el código se queda paralizado, pero despues no lo retoma en el mismo orden donde lo dejó, ya que el usuario puede, por ejemplo, cerrar la ventana donde "debía" de continuar la ejecución normal del prograrma, y eso era lo que provocaba los Access Violation.

Por otra parte, el AOwner de las ventanas tampoco estaban bien puestos.

Al final he optado por usar un PreviewModeless, (tampoco sabía que existía) así cada Form1 o Form2 continua su ejecución despues de lanzar la Subventana.

Muchisimas gracias por vuestro tiempo e interés.