为什么在顶层表单工具条中不能退出系统(顶层菜单中就可以)?

[magnetmoon]

运行时在顶层菜单中可以退出系统
但是在工具条中却退不出,只是退出了工具条,主表单却没释放!

叙述如下:

1.主程序
set talk off
set class to tbl addi
do form main_form
tbl=createobject('tbl')
tbl.show()
tbl.dock(0)
read events
****************
func exit_sys()
clear events
main_form.release

2.
主表单main_form已设置showWindow=2-As top-level form

工具条类tbl中已设置showWindow=1-In top-level form
工具条类tbl中退出按钮代码:=exit_sys()

顶层菜单退出项代码:=exit_sys()

希望大虾们能给出指导!

[magnetmoon]

设置mdiform=.t.还真管用,一切OK了!

[zhjame]

OK了都不给分啊？

[magnetmoon]

Sorry!刚入门这个网,不知怎样给分.

[zhjame]

我也遇到过，解决办法供参考：
在config.fpw中：screen=on
我用foxpro的屏幕，
在主程序是
on shutdown mainquit()
function mainquit()
clear events
application.quit
endfunc

[magnetmoon]

你的意思是
主表单main_form设置默认的showWindow=0-In Screen (Default)吗?
我的系统是多文档界面的,因此主表单main_form
要设置showWindow=2-As top-level form,
有其他方法吗?
另外不想用quit,这样调试很不方便.

[zhjame]

是的，但你得考虑最终用户，调度时，试一次，以后改一下，不退出就行。
可以这样;
_screen.mdiform=.t.
不就是了，其他的form也设置成 thisform.mdiform=.t.就行。

[boomit]

指点，进入此页管理项即可结贴给分的。。