procedure TForm1.FreePreviewForm;var i: integer;begin for i:=Screen.FormCount-1 downto 0 do or(Screen.Forms[i].name='QRStandard') then Screen.Forms[i].free;//检测今朝体系中的窗口,如有预览时生成的窗口,就Free它。 end;end; begin //QRStandard不必定精确,我记不清了。你可以本身查查看
如不雅在报表预览时出现‘error Acomponent named qrstandard preview already exists’,该怎么清除缺点?
为什么会有如许的问题?