Any reason you are creating this dialog with application as parent?
I remember some issue with temp path's being too long causing errors. This
might be it.
Anything in the destroy/free of the form you are creating?
Hanging try..finally block..............
JED
[EMAIL PROTECTED] wrote on 10/06/2003 12:04:21 PM:
> > > I have created a PreviewFm form and placed a TQuickRep component
> > > (QR1) on this form. The AfterPreview event contains just a "Close"
> > > statement.
> > >
> > > In my app I have the following procedure:
> > >
> > > procedure HandleViewReportsClick; //mh 2003-06-10
> > > begin
> > > MainForm.OpenDialog.Filter := 'Report Files, *.qrp|*.QRP';
> > > MainForm.OpenDialog.Title := 'Select file to view';
> > > MainForm.OpenDialog.InitialDir :=
> > > ExtractFileDir(Application.ExeName);
> > >
> > > if MainForm.OpenDialog.Execute then try
> > > Application.CreateForm(TPreviewFm, PreviewFm);
> > > PreviewFm.QR1.Prepare;
> > > try
> > > PreviewFm.QR1.QRPrinter.Load(MainForm.OpenDialog.FileName);
> > > PreviewFm.QR1.QRPrinter.Preview;
> > > finally
> > > PreviewFm.QR1.Free;
> > > end;
> > > finally
> > > PreviewFm.free;
> > > end
> > > end;
> > >
> > > Any help greatly appreciated
> > >
> > > Mark
This email and any files transmitted with it are confidential and
intended solely for the use of the individual or entity to whom they
are addressed. If you have received this email in error please notify
the [EMAIL PROTECTED]
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of "unsubscribe delphi"
Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
