Foros Club Delphi - Invalid Window Handle en QuickReport

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)

- - Invalid Window Handle en QuickReport (https://www.clubdelphi.com/foros/showthread.php?t=36924)

Invalid Window Handle en QuickReport

Hola, estoy haciendo una impresion con QuickReport y hay un error aleatorio cuando muestro la impresion como PreviewModal, al hacer la previsualizacion no me muestra los datos y al cerrar me da el error: "Invalid Window Handle", he probado con Application.ProcessMessages y nada, cuando la muestro Preview esta todo bien, pero quisiera que la vista previa quede modal, estoy usando delphi 7, agradezco mucho su ayuda, saludos y gracias.

Cita:

Empezado por jlcasih

estoy haciendo una impresion con QuickReport y hay un error aleatorio

Hombre, tanto como aleatorio, no se yo... pero bueno, sería interesante, a la vez de necesario para que te ayudemos, que pusieras una parte del código que te está dando el problema para una localización del error más fácil.

Saludos

En primero instancia tengo un objeto que se encarga de setear propiedades generales y llamar al form en donde se encuentra el reporte diseñado,el llamado en este caso, el mas simple es un listado, codigo:

Código:

try

  F                                                  := TFReporte1.Create(nil);

  TFReporte1(F).QuickRep1.DataSet      := ADataSet;

  TFReporte1(F).LblTitulo.Caption         := 'Titulo';

  TFReporte1(F).MemSubTit.Lines.Text  := 'Subtitulo';

  //Guardo puntero

  Book                                             := ADataSet.Bookmark;

  DataSet.DisableControls;

  TQuickRep(F.FindComponent('QuickRep1')).ReportTitle := 'Vista Previa';

  TQuickRep(F.FindComponent('QuickRep1')).PreviewModal;

finally

  if Book <> '' then ADataSet.Bookmark   := Book;

  ADataSet.EnableControls;

  TQuickRep(F.FindComponent('QuickRep1')).Free;

  F.Free;

end;

Muchas gracias por tu rapida respuesta. Saludos