Delphi - 使用Crystal Reports显示模态报告

Question

我正在使用Crystal Reports 7和Delphi 7，并想知道如何打开报告的模态预览。

Crpe1.Execute;

打开非模态表单，但我找不到打开模态表单的方法... 谢谢你的帮助！

Answer 1

很长一段时间我没有使用TCrpe和Delphi7。

我认为您可以更改Tcrpe.Output：= toWindow进行预览，将Tcrpe.Output：= toPrinter更改为直接打印到打印机。

我完全不确定，因为我的电脑上没有delphi7和Tcrpe。

使用crpe1.show，然后你也有预览对话框。

Answer 2

我希望这个例子可以帮助你拥有一个showmodal

 procedure Tform1.BtnShowViewerClick(Sender: TObject);
 var
   oForm: TForm;
 begin
   oForm:= TForm.Create(Nil);
   try
     oForm.bordericons:= [bisystemmenu]; 
     oForm.OnResize:= OnCrpeViewerResize; 
     crpe1.WindowParent:= oForm;
     crpe1.Show;
     oForm.ShowModal;
   finally
     FreeAndNil(oForm);
   end;
 end;


 procedure TForm1.OnCrpeViewerResize(Sender: TObject);
 begin
   if (sender is TForm) then
   begin
     SetWindowPos(Crpe1.ReportWindowHandle, 
                  HWND_TOP, 
                  0, 
                  0, 
                  TForm(Sender).ClientWidth,
                  TForm(Sender).ClientHeight, 
                  SWP_NOZORDER);     
   end;
 end;