你用FRPREVIEW这个组件，然后，看以下代码，只修改了几行。可以允许客户在浏览时，更改报表内容。自动刷新。
procedure TForm1.FormDblClick(Sender: TObject);//显示报表
begin
frreport1.OnObjectClick:=frreport1objectclick;
frreport1.PrepareReport;
//这里新改的
frreport1.Preview:=frpreview1;//还有这里
frreport1.ShowPreparedReport;//还有这里
end;
procedure TForm1.frReport1ObjectClick(View: TfrView);//可更改界面，刷新
begin
form2:=tform2.Create(self);
form2.Edit1.text:=view.Memo.Text;
form2.showmodal;
if form2.ModalResult=mrok then
view.memo.Text:=form2.edit1.text;
frpreview1.Zoom:=100;//这里新改的，其实，也就是强制按原比例刷新，重绘。
form1.Canvas.Refresh;//这里新改的
end;
