请问如何在VFP9中禁止打开多个窗口？

[renchao]

请问如何在VFP9中禁止打开多个窗口？

在一个应用程序中，当用户从菜单选择了一个菜单项后，
出现一个窗口（Form）；

但必须要让用户关闭这个窗口后，
才能再选择菜单项激活别的窗口（Form）。

不知该怎么实现，请高手指教。
谢谢！

[OldOrk]

将FORM或FORMSET的模式属性设为1即可

[awl005]

搞成模式表单就可以了
VFP表单的默认模式是无模式(0)

[renchao]

已经设置成模式表单了，但还是不行，
不信你试试。

[LAIYANGPJ]

Public handle
Declare Integer CreateFileMapping In kernel32.Dll Integer hFile, ;
integer lpFileMappingAttributes,Integer flProtect, ;
integer dwMaximumSizeHigh, Integer dwMaximumSizeLow, ;
string lpName
Declare Integer GetLastError In kernel32.Dll
Declare Integer CloseHandle In kernel32.Dll Integer hObject
sznamerun="nowrun"
handle = createfilemapping(0xffffffff,0,4,0,128,sznamerun)
If handle=0
Messagebox("创建内存映谢文件失败！",0,"错误")
Return .F.
Else
If getlasterror()=183
=Messagebox("该软件已经已在运行中.......",32,"*(^_^)*(^_^)*")
Close All
Clear Dlls
Endif
ENDIF

[十豆三]

有菜单的表为顶层表单。

其他表单为在顶层表单中，并为模式表单。

[Gucciwu]

在每一个form的load事件里面检查有没有_SCREEN.ACTIVEFORM,如果有的话直接unload并return .F.

[Gucciwu]

IF TYPE("_SCREEN.ActiveForm") = "O"
THISFORM.Unload()
RETURN .F.
ENDIF