你是说在表单关闭时提示用户是否关闭吗? 将表单的关闭钮禁用.加个退出按钮,click:sure=messagebox('真的要退出吗?',4+32+256,'信息窗口:') if sure=6 if type('thisform.parent')='O' thisformset.release else thisform.release endi else return endi
DO FORM FormName NAME FormName 先把FormName定义为PUBLIC 用FormName.release即可全局控制。OK?
将表单的关闭钮禁用.加个退出按钮,click:sure=messagebox('真的要退出吗?',4+32+256,'信息窗口:')
if sure=6
if type('thisform.parent')='O'
thisformset.release
else
thisform.release
endi
else
return
endi
先把FormName定义为PUBLIC
用FormName.release即可全局控制。OK?