(15)直接在Form上预览

拖一个 frxPreview1到界面上

procedure TForm13.FormCreate(Sender: TObject);
begin
//frxReport1.ShowReport();//
  frxReport1.Preview := frxPreview1;
  frxReport1.PrepareReport();
end;

 

要确保HideScrolls为False才会有滚动条.

---

 

---

 

---

 

上面两个最多只能显示一个

---

 

 预览中制作自定义工具栏:添加一个ToolBar1,并添加按钮

https://forum.fast-report.com/en/discussion/9373/use-toolbar-from-frxpreviewform-in-frxpreview

https://www.cnblogs.com/txgh/p/17380725.html

create own toolbar with such code for each button:

frxPreview1.Print;
frxPreview1.LoadFromFile;
frxPreview1.SaveToFile;
frxPreview1.Export(Filter);
frxPreview1.Find;
frxPreview1.Zoom:=frxPreview1.Zoom + 0.25;
frxPreview1.Zoom:=frxPreview1.Zoom - 0.25;
frxPreview1.OutlineVisible := frxPreview1.OutlineVisible;
frxPreview1.ThumbnailVisible:=not frxPreview1.ThumbnailVisible;
frxPreview1.PageSetupDlg;
frxPreview1.Edit;
frxPreview1.First;
frxPreview1.Prior;
frxPreview1.PageNo := 1;
frxPreview1.Next;
frxPreview1.Last;

 

var
frmPreview:TfrxPreviewForm;
begin
frxReport1.PreviewOptions.Modal:=False;
frmPreview:=TfrxPreviewForm(frxReport1.PreviewForm); //frxReport1.PreviewForm  not Assigned 为空,nil,所以这种方法不行
frmPreview.BorderStyle:=bsNone;
frmPreview.Parent:=Panel1;
frmPreview.Left:=0;
frmPreview.Top:=0;
frmPreview.Width:=Panel1.ClientWidth;
frmPreview.Height:=Panel1.ClientHeight;
end;