如何判断有没有表单未关闭.

zhuzhu52112 2014-08-20 02:07:57
各位大大:
小弟主main.prg里有ON SHUTDOWN DO tc.
我想在按右上角关闭按钮的时候判断还有没有表单未关闭.
如果有则提示 表单name.Caption未关闭,不能退出.
怎么实现,拜谢!
...全文
84 2 打赏 收藏 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
zhuzhu52112 2014-08-20
  • 打赏
  • 举报
回复
十分感谢十豆三老师.
十豆三 2014-08-20
  • 打赏
  • 举报
回复
*--你的 tc.prg 内容如下:
lnForms=_vfp.Forms.Count
If lnForms>0
	lcCaption=''
	For lnI=1 To lnForms
		lcCaption=lcCaption+Chr(10)+'表单Name:'+_vfp.Forms(lnI).Caption+'  表单Caption:'+_vfp.Forms(lnI).Caption
	Endfor
	Messagebox('有如下表单未关闭:'+lcCaption,48,'信息提示')
Else
	Quit
Endif

2,750

社区成员

发帖
与我相关
我的任务
社区描述
VFP,是Microsoft公司推出的数据库开发软件,用它来开发数据库,既简单又方便。
社区管理员
  • VFP社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧