重问：报表窗体打开时即预览报表，如何在关闭预览使同时关闭窗体？

Question

奇怪，我这可以呀！
—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样，改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————
　　　　　　　

Answer 1

如果窗体是动态创建的话,这样试试:
with Tform1.create(application) do
try
   QuickRep1.Preview;
finally
   free;
end;

Answer 2

无济于事，不能解决问题！！afterpreview 事件后单步执行到
onshow 事件的 end;语句
但并未关闭窗体

Answer 3

我觉得没有必要多用一个窗体来作为报表预览窗体。我的解决方法是：在form中加入一个panel控件，令visible = false；然后把quickrep放在panel里面，预览时直接用quickrep.preview就可以了