procedure TForm1.Button1Click(Sender: TObject); var Report: TfrReport; begin with Form3 do //Form3中放frReport1 begin Report := frReport1; Report.LoadFromFile(WPath + '55.frf'); // Report.Preview := Form2.frPreview1;//自定义的预览,可以不用 if Report.PrepareReport then begin Report.ShowPreparedReport; //Form2.ShowModal;//自定义的预览显示 end; end; end;
var
Report: TfrReport;
begin
with Form3 do //Form3中放frReport1
begin
Report := frReport1;
Report.LoadFromFile(WPath + '55.frf');
// Report.Preview := Form2.frPreview1;//自定义的预览,可以不用
if Report.PrepareReport then
begin
Report.ShowPreparedReport;
//Form2.ShowModal;//自定义的预览显示
end;
end;
end;