报表预览错误?

如果在报表预览时出现‘error   Acomponent   named   qrstandard   preview   already   exists’,该怎么排除错误？ 问题点数：25、回复次数：6Top

1 楼castle（）回复于 2001-07-26 17:51:09 得分 0

急！Top

2 楼jingpingyi（jingpingyi）回复于 2001-07-26 18:29:49 得分 15

//检测目前系统中的窗口，如有预览时生成的窗口，就Free它。  
  procedure   TForm1.FreePreviewForm;  
  var  
      i:   integer;  
  begin  
      for   i:=Screen.FormCount-1   downto   0   do  
        or(Screen.Forms[i].name='QRStandard')     then  
              begin                 //QRStandard不一定正确，我记不清了。你可以自己查查看  
                  Screen.Forms[i].free;  
              end;  
  end;  
  Top

3 楼jingpingyi（jingpingyi）回复于 2001-07-26 18:29:53 得分 0

//检测目前系统中的窗口，如有预览时生成的窗口，就Free它。  
  procedure   TForm1.FreePreviewForm;  
  var  
      i:   integer;  
  begin  
      for   i:=Screen.FormCount-1   downto   0   do  
        or(Screen.Forms[i].name='QRStandard')     then  
              begin                 //QRStandard不一定正确，我记不清了。你可以自己查查看  
                  Screen.Forms[i].free;  
              end;  
  end;  
  Top

4 楼castle（）回复于 2001-07-30 08:57:29 得分 0

为什么会有这样的问题？Top

5 楼jingpingyi（jingpingyi）回复于 2001-07-30 09:34:00 得分 10

Quickrep的bug，预览后没有Free掉.Top

6 楼castle（）回复于 2001-07-30 14:04:38 得分 0

谢谢！Top

相关问题

• 预览
• qrstandard
• screen
• free
• begin
• forms

• 帖主：castle
• jingpingyi
• jingpingyi

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载