Como comenté, estoy implementando la visualización de un Reporte realizado con Quick Report, no estoy utilizando la visualización que por default hace el propio Quick Report sino que utilizo un forma predeterminada para poder visualizar el Reporte en esta forma(frmVistaPreliminar). Asi que al ejecutar el botón de visualizacion del Reporte se crea y abre la forma y se le indica que la visualización se va a realizar utilizando la forma frmVistaPreliminar. El codigo es este:
// Visualización del Reporte Quick Report.
frmVistaPreliminar := TfrmVistaPreliminar.create(self);
frmVistaPreliminar.QRPreview1.Zoom := 100;
QuickRep2.QRPrinter.PreviewModal;
frmVistaPreliminar.Close;
En el evento OnPreview del Quick report se ejecuta lo siguiente:
procedure TfrmCtaGastos.QuickRep2Preview(Sender: TObject);
begin
//Muestra la vista preliminar del Reporte.
With frmVistaPreliminar do
begin
QRPreview1.QRPrinter := Sender as TQRPrinter;
ShowModal;
end;
end;
El debuger me indica que al momento de la ejecucion del Evento PriviewModal se genera el error:
// Visualiza el Quick Report.
frmVistaPreliminar := TfrmVistaPreliminar.create(self);
frmVistaPreliminar.QRPreview1.Zoom := 100;
--> QuickRep2.QRPrinter.PreviewModal;
frmVistaPreliminar.Close;
procedure TQRPrinter.PreviewModal;
begin
--> if assigned(FOnPreviewEvent) then
try
FOnPreviewEvent(Self)
finally
end else
with GlobalPreviewInterface.Create(nil) do
try
ShowModal(Self)
finally
Free;
end;
end;
El error que se obtiene es el siguiente:
"Access violation at address 0057227F in Module 'CtaGastos.exe' Read of address 0000005A"
Espero haber detallado el error que obtengo, de antemano gracias. 