报表预览错误?

Question

//检测目前系统中的窗口，如有预览时生成的窗口，就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;

Answer 1

//检测目前系统中的窗口，如有预览时生成的窗口，就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;

Answer 2

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