怎么回事啊?(20分)

thy_delphi · 2004-04-13

procedure TForm1.BitBtn21Click(Sender: TObject);
begin
with tqr1.Create(self)do
Preview;
end;
怎么只能打印阅览一次阿！？提示我的qr1空间已经存在

TYZhang · 2004-04-13

你的打印预览窗口没关闭吧。

thy_delphi · 2004-04-13

我关闭了，只要用过一次就提示

a_ping · 2004-04-13

关闭后还Free掉了？因为你动态创建窗体

wqhatnet · 2004-04-13

tqr1.free;

HAZL · 2004-04-13

怎么没见你free这个 tqr1.？不free下次还能创建第二次吗

zhouljun · 2004-04-29

tqr1.free;

thy_delphi · 2004-04-29

接受答案了.