关于QuickReport的preview的一个问题

Question

用QuickReport设计报表后，执行preview，若不关闭预览窗口，再执行一次preview,程序会报错，如何解决此问题？

Answer 1

自己做个Preview窗口，ShowModal，这样就Ok了。

Answer 2

如果不是程序要求打开多个相同的界面,就判断一个内存中是否创建了这个对象.if not assigned(quickreport) then
begin
  quickreport:=Tquickreport.create(application);
  quickreport.preview;
end;

Answer 3

if QuickReport = nil then
begin
  QuickReport := TQuickReport.create(application);
end;
try
  QuickReport.preview;
finally
  QuickReport.free;
end;