请问如何得到当前窗体的句柄或者窗体名？

[littlelilac]

我想实现下述功能：
当我的程序有窗体正打开时，点击主菜单右上角的关闭按钮，就是那个小八叉，可以提示“请先关闭当前窗口”，然后返回当前窗体。如果没有窗体打开时，点击“关闭”，关闭整个主菜单，退出。

我该怎么写代码？谢谢！

[mast]

在该窗体的CloseQuery事件中，用isvaild()函数判断即可。

[littlelilac]

先谢谢各位！不过。。。。
可能是我没有表达清楚：我是说在一个带菜单的MDI窗体中，当我打开菜单联接的其他子窗体时（菜单是连接着很多子窗体的，我是说其中一个），如果我点击MDI窗体的关闭按钮，就是那个小八叉，可以提示“请先关闭当前窗口”，然后返回当前打开的那个窗体。如果没有打开菜单联接的其他窗体，点击MDI窗体的关闭按钮，关闭整个MDI窗体。

mast(石破天) 和Edgerlife说的都只能得到已知窗体的句柄。而我想动态的得到某个子窗体的句柄，想在主MDI窗体的closeQuery事件里写代码。我不会写。:-(

我把chrisfy的代码全部粘贴过去，保存时提示“Undefined Variable: parentwindow”

程序需要，我的子窗口不能设成maxmized！。。。。。。

[pengdesheng]

用户继承啦,在原始窗口中写好就可以了,,

[EdgerLee]

句柄 Handle(窗口名)

同意mast(石破天) ！

[chrisfy]

呵呵，全部给你
Integer li_rc
String ls_Pwtitle
Window lw_sheet

lw_Sheet = ParentWindow.GetActiveSheet()//MDI窗体中的活动工作表
IF IsValid(lw_Sheet) Then
Close(lw_Sheet)
Else

ls_PwTitle = Parentwindow.Title
li_rc = MessageBox("提示信息","你真想退出"+ls_PwTitle+"吗?",Question!,YesNO!,1)
IF li_rc = 2 Then Return
Halt Close
End IF

[coolroy2000]

MDI窗体本身就可满足你的要求啊，前提是你的子窗口maxmized！就ok了~~~~~~~

[jdsnhan]

可以把chrisfy(K.O)的脚本放到mdi窗体的CloseQuery事件中，把parentwindow 换成this。