设置当前表单的 WindowType = 1 奇怪,不灵了 - VFP论坛

已结贴√ 问题点数：20 回复次数：18

设置当前表单的 WindowType = 1 奇怪,不灵了

各位老师傅,晚上好,
前几天咨询了如何防止重复打开表单的情况,说是可以用设置当前表单的 WindowType = 1 这个方法,
在公司的A 电脑上测试,测试确实可行,不过今天在A电脑上编译为EXE,,COPY 到B电脑上,神奇了,打开一个表单后,还可以通过菜单打开其他表单, 百思不得其解!
另一个事情是我加了日历类进去(FFC 目录),表单加了日历控件,到B电脑上提示MSCOMCT2.OCX 未注册,,这个应该注册一下就可以,应该和上面的问题没有一点关系吧?
请问这是怎么回事?

搜索更多相关主题的帖子: 打开　当前　表单　测试　注册　

第 2 楼

得分:5

直接先把表单属性改成模式（windowtype=1)试试（不是在程序里设置windowtype=1）
菜单方式调用表单我没用过，按说不应该能重复打开

第 3 楼

得分:0

回复 2楼 laowan001

RSDA.7z (188.73 KB)

图片附件: 游客没有浏览图片的权限，请登录或注册

试了把所有的表单,包括顶层表单都改了还不行, ,,出现新问题,软件无法正常退出....烦请老师傅指点

第 4 楼

得分:5

使用Wexist()函数试试

第 5 楼

得分:0

回复 2楼 laowan001

请大师调试时候试试,编译为EXE 再试试

第 6 楼

得分:0

回复 4楼 fyyylyl

看了帮助文件,还是不太懂具体怎么用,咋又不行,,

图片附件: 游客没有浏览图片的权限，请登录或注册

第 7 楼

得分:0

回复 2楼 laowan001

请问版主是用什么来调用表单? 有什么好方法烦请推荐一下...

第 8 楼

得分:5

从没遇到过楼主所述问题

坚守VFP最后的阵地

第 9 楼

得分:0

回复 8楼 sdta

死活想不通,,,,请问大师是咋弄的?

第 10 楼

得分:0

回复 3楼 ljlhpop

不能退出的问题是解决了，但方法比较笨。因为没用过菜单，所以应该还有更简便的方法。
下面是具体方法，供参考：

程序代码：

* renshi.mpr 修改了一句
*ON SELECTION PAD _6be11jbyb OF (m.cMenuName) quit
ON SELECTION PAD _6be11jbyb OF (m.cMenuName) do xquit

程序代码：

* 新增 xquit.prg
LOCAL xretu
DO FORM quit TO xretu

IF xretu='0'
    QUIT
ENDIF

表单quit

程序代码：

* form1.init 增加属性
this.AddProperty('Pretu','1')

* form1.unload
RETURN this.Pretu

* command3.click
thisform.pretu = '0'
thisform.Release

* command2.click 最后部分修改
messagebox("备份成功，系统将退出！",0+48,"提示")
thisform.pretu = '0'
*QUIT
set safe on
thisform.Release

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