用顶层表单打开其他的表单在顶层表单窗口中运行，怎样判断正在运行的是哪个表单（也就是表单名）？
假设每次只能运行一个表单。

Sys(1271,Thisform)            && 返回 路径+表单文件名
Justfname(Sys(1271,Thisform)) && 取得表单文件名

楼主真没记性
严格地说，应该判断表单的文件名，而不是表单名
将第二行代码放在表单的适当事件中

收到的鲜花

• qshuju 于 2013-04-26 14:51 送鲜花  5朵   附言：好文章

回复2楼

不行，不能返回正在运行的表单的文件名，它返回的是thisfrom的文件名！！也就是说，它不能返回正在thisfrom中运行的表单文件名！！！！

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

我是想用顶层表单来判断正在运行的表单文件史称，因为程序的关闭是从顶层表单关闭的。

我现在正在测试，_screen没有关闭，就是提示 类型、数目无效。。。。

我是用顶层表单做主程序窗口，如果用_screen就又要改回来 ，太麻烦了。用了_screen，会在程序刚启动时闪一下的。

不知道楼主是如何测试的



看运行中的表单的标题栏

我是用顶层表单做程序主窗口，每次运行的都是模式表单，这样做的目的是让顶层表单中的菜单不可用，及避免表使用冲突的问题。。。我的水平有限。。。所以
当模式表单运行时，这时不关闭模式表单就直接退出主窗口会不能退出。为了结束这个正在运行的表单，我必须能判断用户是在操作哪个表单，然后：表单文件名.release —》再执行退出操作就可以退出了

用Justfname(Sys(1271,Thisform))就行

既然当前运行表单是模式表单，也就用不着判断当前运行表单的文件名，直接关闭当前表单就行了。