为什么使用SetWindowPos设置form位于最上层显示不起作用？

Question

如题！
在MDI子窗口中,利用SetWindowPos API函数，把form放在多个form的最上层显示不起作用呢？以下是api的声明。
 
  Public   Declare   Function   SetWindowPos   Lib   "user32"   (ByVal   hwnd   As   Long,   ByVal   hWndInsertAfter   As   Long,   ByVal   X   As   Long,   ByVal   y   As   Long,   ByVal   cx   As   Long,   ByVal   cy   As   Long,   ByVal   wFlags   As   Long)   As   Long   
  Const   SWP_NOMOVE   =   &H2   '不更动目前视窗位置   
  Const   SWP_NOSIZE   =   &H1   '不更动目前视窗大小   
  Const   HWND_TOPMOST   =   -1   '设定为最上层   
  Const   HWND_NOTOPMOST   =   -2   '取消最上层设定   
  Const   FLAGS   =   SWP_NOMOVE   Or   SWP_NOSIZE   
 
在MDI子窗口中的Load函数中，使用以下语句设置为最上层显示，但是不起作用，焦点还是可以落在后面的form上。
  SetWindowPos   Me.hwnd,   HWND_TOPMOST,   0,   0,   0,   0,   FLAGS   

Answer 1

ZOrder 方法
      将指定的 MDIForm，Form 或控件放置在其图层的z-顺序的前端或后端。不支持命名参数。语法object.ZOrder positionZOrder 方法的语法包含下列部分：部分 描述 
object 可选的。一个对象表达式，其值为“应用于”列表中的一个对象。如果省略 object，则具有焦点的 Form 对象缺省为 object。 
Position  可选的。一个整数，它用以指示 object 相对于同一 object 其它实例的位置。如果 position 为 0 或被省略，则 object 定位在Z-顺序前面。如果 position 为 1，则 object 定位在Z-顺序后面。 
说明在设计时选择“编辑”菜单中的“置前”或“置后”菜单命令，可以设置对象的Z-顺序。在 MDIForm 对象内，Zorder 根据 position 的数值决定将 MDI子窗体放置到 MDI 客户区的前面或后面。对于 MDIForm 或 Form 对象，Zorder 根据 position 的数值决定将窗体放置到屏幕的前面或后面。因此，窗体可以显示在其它运行中的应用程序的前面或后面。有三个图层与窗体和容器相关联。后层是显示图形方法结果的绘图空间。下一个是中层，用来显示图形对象和 Label 控件。前层显示所有非图形控件，如 CommandButton、CheckBox 或 ListBox。靠近前层的层中包含的东西将覆盖该层后面的各层包含的东西。Zorder 只对该对象在其中显示的那一层内的各个对象进行重排。

Answer 2

谢谢。
我也使用了ZOrder 方法，并且可以在最上层显示。
我现在就是想让当前form一直在最上层显示，必须手动关闭后才能操作其他的form。
那该怎么办呢？

Answer 3

module定义
public frm as form
初始化frm=nothing
另外手动关闭也赋为nothing
在每个子窗体的
Private Sub Form_Activate()
  If frm Is Nothing Then
    Set frm = Me
  Else
    frm.ZOrder 0
  End If
End Sub

Answer 4

貌似你的说的可以用模态窗口解决
form1.show vbmodal

Answer 5

在MDI子窗口中不能使用模态窗口解决，不能使用这种form1.show vbmodal方式显示窗口

Answer 6

这样也不起作用，还是可以不选择当前的form窗口而选择其他的窗口。每次显示时都设置为
frm.ZOrder 0 
也不起作用，可以在让被显示的form位于最上层显示，但是还是可以在不关闭当前form窗口时选择其他的窗口
即不能像messagebox那样，必须关闭后才能做其他操作。

Answer 7

SetWindowPos   Me.hwnd,   -1,   0,   0,   0,   0,   FLAGS 

Answer 8

FLAGS   =   SWP_NOMOVE   Or   SWP_NOSIZE把红色这个去掉，用它会忽略第二个参数

Answer 9

谢谢楼上两位。
以上两种方法还是不起作用，在非MDI窗口起作用，在MDI窗口及子窗口就不起作用了。
我在要显示在最上层的form，当失去焦点，变为非活动时重新设置为在最上层显示本form，好些有时起作用，有时不起作用，起作用时也会重新刷新画面，会闪一下，把提下一层的控件显示一下，然后才会显示当前的form。
如果是非MDI窗体，用这种方法就可以保持在最上层显示，也不会闪烁。
看来MDI窗口与非MDI窗口的处理有些不同，适用于非MDI窗口的操作在MDI窗口下就未必有效了。

Answer 10

Private Sub Form_Deactivate()
    Me.ZOrder 0
End Sub