procedure TForm1.Button1Click(Sender: TObject);
var
vPage: TfrxReportPage;
vTitle: TfrxPageHeader;
vView: TfrxMemoView;
vData: TfrxMasterData;
begin
frxReport1.Clear;
vPage := TfrxReportPage.Create(frxReport1);
vPage.CreateUniqueName;
vPage.LeftMargin := 10;
vPage.RightMargin := 10;
vPage.TopMargin := 10;
vPage.BottomMargin := 10;
vTitle := TfrxPageHeader.Create(vPage);
vTitle.CreateUniqueName;
vTitle.Height := 20;
vTitle.Top := 0;
vView := TfrxMemoView.Create(vTitle);
vView.CreateUniqueName;
vView.Top := 0;
vView.Left := 0;
vView.Width := vPage.Width;
vView.Height := vTitle.Height;
vView.Text := 'This is a title';
vData := TfrxMasterData.Create(vPage);
vData.CreateUniqueName;
vData.Height := 20;
vData.Top := 0;
// frxReport1.ShowReport();
frxReport1.DesignReport();
end;
动态创建FastReport4报表
最新推荐文章于 2020-04-03 22:26:12 发布