Ver Mensaje Individual
  #3  
Antiguo 31-05-2005
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Reputación: 29
Lepe Va por buen camino
En principio tu codigo está bien, pero te aviso de los efectos que puede causar para que no te vuelvas loco buscando los fallos.

Suponiendo que tienes un boton (BtnInforme) en la ventana TClientes, que su código es este:
Código Delphi [-]
procedure TClientes.BtnInformeClick(...);
Var
r : tMiQReport;
Begin
r := tMiQReport.Create(nil); // Aqui antes era Self
btnInforme.Enabled:=false;
try
    r.Preview;
Finally
    freeandnil(r);
    btnInforme.Enabled:=true;
    End;
End;

El problema viene en el comando Preview, PreviewModal, PreviewModeless, depende del que se use, el código se queda pausado en esa linea o no; y esto trae efectos colaterales.

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.

Una posible Solución:
Código Delphi [-]
procedure TclientesCloseQuery(...)
begin
  CanClose := btInforme.Enabled;
  if not CanClose then
    ShowMessage('Cierre el informe');
end;

Si usas PreviewModeLess, el código no se queda pausado en r.Preview, por tanto, el boton de mostrar el informe se habilita de nuevo, y si lo pulsas otra vez, obtendrás el mensaje "component XXX already exist"

Por supuesto tambien depende del tipo de interfaz que estes usando MDI/SDI y de otras consideraciones de diseño que son dificiles de explicar por aqui.

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

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

Un saludo
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
Responder Con Cita