我用的就是这种样子。没啥新鲜的，就是一个个的container，在Click事件中do form XXXXX，是从win8那时候改的，只是每个container中间不是图标，而是文字

[此贴子已经被作者于2022-4-23 08:36编辑过]

抛砖：
我的做法是在菜单中添加一个跳过条件  当执行本表单时，其他菜单项变灰色，则无法打开其他表单  当关闭本表单时，相关菜单恢复正常，即可调用其他表单  ，用这个笨方法来防止同时打开表单。

[此贴子已经被作者于2022-4-23 16:28编辑过]

听起来好像不错,,,,具体代码怎么写? 烦请老师给个参考,多谢!

奇怪是以前都正常退出,,感觉是突然不行的,,

另外那个同时间打开同个表单的,我今天试了下,是调试的时候正常,一旦连编为EXE ,马上打开EXE(本机,,不用COPY 到其他机子) ,就变成同时间可以打开同样的表单......无法理解

你这个回复我看不懂，10楼的方法试了没有？结果如何？
回复内容感觉还是在纠结中

首先谢谢版主代码,,我已经看晕......
我试了把顶层菜单的...closable改为.T. ...居然可以关闭了..不知道这样关闭会不会出问题?
还一个问题,就是关闭的时候一闪而过,感觉是.Screen 主界面关闭,看上去很不爽,,,,,这个问题咋处理?

10楼的没去试,,,比较菜,,已经看晕...目前就用MAIN 顶层表单的 CLOSABLE 改为.T. 来凑合用

我猜你指的是编译后的EXE出现这种情况吧，如果是的话，建议如下：
建立一个主程序，如： main.prg     && 设置为主程序

_screen.visible =.f. 

SET TALK OFF
SET SAFETY OFF
SET CENTURY ON 
...

DO FORM 主表单
READ EVENTS

主表单的form1.destroy中要有下面的句子
CLEAR EVENTS

是调试的时候,,关闭主表单就会一闪而过,,

里面的主程序按您的代码设好了,主表单的DESTORY 也检查了,还是出现一闪而过,看的不爽