A component named XXXXX already exists.. al mostrar más de una ventana de reportes

[[sitrico]]

Comienzo por el final.

Empezado por Lepe

La variable 'r' Donde la tienes declarada, ¿Dentro de un procedimiento local, o en la seccion private/public de un Form?

La declaro dentro del procedimiento local.

Empezado por Lepe

Cuando quieres abrir el segundo informe.... ¿desde donde se haría? ¿desde el mismo boton?

En realidad todos los reportes estan enlazados a una unica acción (TAction.Execute) "EmitirInforme" y con un Case Sender.tag of decido que reporte generar.

Empezado por Lepe

Si usas Preview, el código se queda pausado en esa linea, si intentas cerrar la ventana Clientes antes que la ventana del quickreport, al cerrar el quickReport obtendrás una violacion de memoria, ya que intentará acceder a la ventana Clientes para continuar el código justo despues de r.Preview, y como esa ventana se ha cerrado, crashhhh.

Si, uso preview y pensé que ocurriria el crashhhh al cerrar la aplicación con un reporte abierto, pero (debe ser por el bloque try..Finally) al cerrar la aplicación se libera(n) apropiadamente el(los) formulario(s) preview y todo parece funcionar bien (a pesar que uso Win XP ).

En realidad lo que se libera al final del procedimiento (r.free) es el QReport y no el formulario QRPreview (que si debe tener el owner apropiadamente asignado).

De todas maneras voy a seguir haciendo pruebas para ver si en alguna situación ocurre un problema.

[[Lepe]]

Empezado por sitrico

Si, uso preview y pensé que ocurriria el crashhhh al cerrar la aplicación con un reporte abierto, pero (debe ser por el bloque try..Finally) al cerrar la aplicación se libera(n) apropiadamente el(los) formulario(s) preview y todo parece funcionar bien (a pesar que uso Win XP ).

Ahhhh, amiiiiiigo, la ventana del boton es el form principal, por eso no obtienes mensajes de errores.

De todas formas, al intentar abrir 2 preview del mismo informe seguirá dando el error, Tendrás que controlar de alguna forma los informes que ya se estan mostrando.


Un saludo

[[sitrico]]

Empezado por Sitrico

Acabo de probar sustituir el "Self" por "Nil" y trabaja perfectamente.

Código Delphi [-]
r := tMiQReport.Create(nil);

Asignando el owner del reporte a "nil" puedo abrir cuantas ventanas quiera

¡ y no da errores !