如何得知窗口 hWnd 是不是MDI类型窗口

[二师兄的老公]

先 hWnd = GetActiveWindow()；
再判断 hWnd 是否为MDI类型窗口。
怎么做？

[rainstormmaster]

试试：
Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long


if GetParent(hwnd)=0 then
'no
else
'yes
end if

[rainstormmaster]

或者用setwindowlong试试

[rainstormmaster]

笔误，应为getwindowlong

[TechnoFantasy]

Option Explicit

Const WS_EX_MDICHILD = &H40
Const GWL_EXSTYLE = (-20)

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long) As Long


Function IsWindowMid(hwnd As Long) As Boolean
Dim x As Long

x = GetWindowLong(hwnd, GWL_EXSTYLE)
If (x And WS_EX_MDICHILD) Then
IsWindowMid = True
Else
IsWindowMid = False
End If
End Function

[二师兄的老公]

可能是我问题没说清楚。
TechnoFantasy(www.applevb.com) 的方法是检查窗口是否为MDI子窗口。
我要检查的是：窗口是否为MDI主窗口！

[TechnoFantasy]

MDI主窗口的风格跟普通的窗口是一致的，假设Form1是普通窗口，MDIForm1是MDI父窗口，你可以用下面的代码：

Dim l As Long

l = GetWindowLong(Form1.hwnd, GWL_STYLE)
Debug.Print Hex(l)
l = GetWindowLong(MDIForm1.hwnd, GWL_STYLE)
Debug.Print Hex(l)


l = GetWindowLong(Form1.hwnd, GWL_EXSTYLE)
Debug.Print Hex(l)
l = GetWindowLong(MDIForm1.hwnd, GWL_EXSTYLE)
Debug.Print Hex(l)

可以看到返回的风格是一样的。

[TechnoFantasy]

我想可能需要用EnumChildWindows函数遍历窗口的子窗口，看里面是否有Windows窗口类型的子窗口

[二师兄的老公]

可以采用EnumChildWindows函数遍历子窗口的方法。
不过前提必须是至少有一个子窗口开着！
问题解决！给分！

[kmzs]

。。。