delphi qreport运行报表预览 关闭不了，每次关闭都会重新弹出。如何解决？
我的代码：procedureTForm9.FormActivate(Sender:TObject);beginquickrep1.Preview;end;procedur...
我的代码：
procedure TForm9.FormActivate(Sender: TObject);
begin
quickrep1.Preview;
end;
procedure TForm9.FormClose(Sender: TObject; var Action: TCloseAction);
begin
modalresult:=mrok;
quickrep1.Free;
form9.Close;
end; 展开
procedure TForm9.FormActivate(Sender: TObject);
begin
quickrep1.Preview;
end;
procedure TForm9.FormClose(Sender: TObject; var Action: TCloseAction);
begin
modalresult:=mrok;
quickrep1.Free;
form9.Close;
end; 展开
1个回答
展开全部
如果quickrep1组件在form9上：
先将你写的代码都删除，然后在你程序的主窗口放一个按钮，在按钮的单击事件中写：Form9.quickrep1.Preview;
问题解决了没有？
先将你写的代码都删除，然后在你程序的主窗口放一个按钮，在按钮的单击事件中写：Form9.quickrep1.Preview;
问题解决了没有？
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
