可以这样
var QRCompositeReport1: TQRCompositeReport;
procedure TfrmQR3Demo.QRCompositeReport1AddReports(Sender: TObject);
begin
// The OnAddReports event is called by the CompositeReport
// to add the reports to list of reports
with QRCompositeReport1.Reportsdo
begin
Add(frmMasterDetail.QuickRep1);
Add(frmBasicMD.QuickRep1);
Add(frmImageRpt.QuickRep1);
end;
end;
