Bt_dy.Enabled:=False;//打印按钮屏蔽
// if not Assigned(frm_rpt_yuebb) then
frm_rpt_yuebb:=Tfrm_rpt_yuebb.Create(self);//创建月报打印窗体
frm_rpt_yuebb.rpt_title.Caption:=cx_yhm.Text+inttostr(cx_year.Value)+'年'+trim(cx_month.Text)+'月份报表';//月报名...
frm_rpt_yuebb.QuickRep1.Preview;//预览
frm_rpt_yuebb.Close;//窗体关闭
上面是我程序中月报查询打印模块打印按钮的代码,每一句我都注释了。问题是这样的。开始打印窗体的模式是fsMDIChild,但这样的话他的visible就不能设置为false,所以我把它的模式改为fsNormal,我运行程序,发现如果我多按几次打印按钮的话就在退出程序的时候就会报错,大概是读到哪些地址之类的,感觉就是用到了没有创建窗体上的东西或它本身,看这句 frm_rpt_yuebb:=Tfrm_rpt_yuebb.Create(self);//创建月报打印窗体
如果我创建了它没有把它关闭,只是最小化,如果我在按打印按钮的是又创建了一次。原因是不是这里呢?后来我加上了if not Assigned(frm_rpt_yuebb) then这句,单步调试的时候到frm_rpt_yuebb.QuickRep1.Preview;//预览
这里出毛病,给我感觉是frm_rpt_yuebb没有创建。大家给我分析一下原因呢。如果把frm_rpt_yuebb的模式改为fsMDIChild,它是属于打印查询月报窗体的自窗体还是应用程序的子窗体呢?谢谢大家分析哈。
// if not Assigned(frm_rpt_yuebb) then
frm_rpt_yuebb:=Tfrm_rpt_yuebb.Create(self);//创建月报打印窗体
frm_rpt_yuebb.rpt_title.Caption:=cx_yhm.Text+inttostr(cx_year.Value)+'年'+trim(cx_month.Text)+'月份报表';//月报名...
frm_rpt_yuebb.QuickRep1.Preview;//预览
frm_rpt_yuebb.Close;//窗体关闭
上面是我程序中月报查询打印模块打印按钮的代码,每一句我都注释了。问题是这样的。开始打印窗体的模式是fsMDIChild,但这样的话他的visible就不能设置为false,所以我把它的模式改为fsNormal,我运行程序,发现如果我多按几次打印按钮的话就在退出程序的时候就会报错,大概是读到哪些地址之类的,感觉就是用到了没有创建窗体上的东西或它本身,看这句 frm_rpt_yuebb:=Tfrm_rpt_yuebb.Create(self);//创建月报打印窗体
如果我创建了它没有把它关闭,只是最小化,如果我在按打印按钮的是又创建了一次。原因是不是这里呢?后来我加上了if not Assigned(frm_rpt_yuebb) then这句,单步调试的时候到frm_rpt_yuebb.QuickRep1.Preview;//预览
这里出毛病,给我感觉是frm_rpt_yuebb没有创建。大家给我分析一下原因呢。如果把frm_rpt_yuebb的模式改为fsMDIChild,它是属于打印查询月报窗体的自窗体还是应用程序的子窗体呢?谢谢大家分析哈。
解决方案 »
- dxPSdxTLLnk.dcu是什么
- ADO 的Lookup Field 问题
- 如果在ListView的SubItems单元格加入图片
- !!!!!!!有硬件和软件都非常精通的吗?帮帮心!
- 生日,散分,为什么我在她面前会失去自信 ~
- 高手啊,,请帮我将这个C++原形转换成delphi的原形,谢谢拉
- 怎么做XP里的椭圆形气泡提示框?
- 关于Treeview的几个问题?
- 用ADO连接出错,请指教!
- 如何在浏览数据时,让Dbgrid 显示的前两个字段固定不动呢???急!!!!大虾快来
- 报表中怎样实现数据过滤功能?
- quickreport或者fastreport如何打印非qreport和非fast页上控件的内容?
OnDestroy事件中frm_rpt_yuebb:=Nil;if False=Assigned(frm_rpt_yuebb) then
frm_rpt_yuebb:=Tfrm_rpt_yuebb.Create(Application);
frm_rpt_yuebb.QuickRep1.Preview
因此 if not Assigned(frm_rpt_yuebb) then 只在第一次起作用。
action := cnfree;