在顶层表单的queryunlode事件中

？Justfname(Sys(1271,Thisform))
？JUSTFNAME(SYS(1271,_SCREEN.Forms(i))) 
IF MESSAGEBOX("确实要退出系统吗？",4+32,"提示信息")==6
CLEAR EVENTS
QUIT 
ELSE 
nodefault
endif

就会返回顶层表单的文件名，另一个就会显示错误
？？？

将代码放在表单的INIT事件中
THISFORM.CAPTION=Sys(1271,Thisform)
编程不弄明白表单事件的先后顺序，将寸步难行。

[ 本帖最后由 sdta 于 2013-4-26 16:08 编辑 ]

你试试，如果用你的form1做顶层表单，然后加入命令按钮click：do from form2.scx ，而form2是一个模式表单而且showwindow是在 顶层表单中，你再看一下Justfname(Sys(1271,Thisform))返回的是不是form2.scx,返回的还是form1.scx。而且这时候你不要关闭正在运行的form2就直接关闭那个做为程序主窗口的form1试试能不能关掉？

我的顶层表单会调用很多模式表单，我要知道用户最后调用的是哪个表单，有没有关闭。如果没有关闭，就要判断是哪个表单还在运行。当关闭主窗口的时候，就要先关闭这个模式表单，不然会退不了程序。

我是要关闭的时候 才判断的。我放在init事件干什么用？
我看还是用参数传递吧，看来 没有函数能够判断正运行在顶层表单中的表单文件名了。

朋友们，这SYS（1271）的你们是如何记住的？

确实这样。

我的模式表单的showwindow设置成在 顶层表单中的，所以我不明白顶层表单的关闭按钮为什么在模式表单运行时还可以点。

showwindow设置成在 顶层表单中，是为了在模式表单运行后还能够看到菜单。这样 视觉效果要好点。

是的，我的顶层表单是无模式。