On 10 Jun 2003 at 12:19, Jeremy North wrote:
> 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.
Not sure I understand what you are saying. I have copied the target
.QRP file to the root level on my D:drive and get the same error.
>
> Anything in the destroy/free of the form you are creating?
>
> Hanging try..finally block..............
There is now NO code in the created form (after removing the Close as
suggested by James)
Mark
>
> 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/
>
---------------------------------------------------------------------------
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/
