Question

默认的MDI父控件有一个大的“桌面”区域，可以显示多个子窗体。用户可以将表单拖动到此桌面区域的边缘，以便大多数子表单不在屏幕上。（然后滚动条出现在MDI父级中）我不喜欢这个功能。有没有办法锁定桌面区域的边缘，以便子窗体保持完全可见？

Answer 1

我用来实现上面选择的答案的代码：

Public alreadyMoved As Boolean = False
Public Const HEIGHT_OF_MENU_STATUS_BARS As Integer = 50
Public Const WIDTH_OF_MENU_STATUS_BARS As Integer = 141
Private Sub Form_Move(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles MyBase.Move
    If Not alreadyMoved Then
        alreadyMoved = True

        'If I'm over the right boundry, drop back to right against that edge
        If Me.Location.X + Me.Width > _
            MdiParent.ClientRectangle.Width - WIDTH_OF_MENU_STATUS_BARS Then
            MyBase.Location = New System.Drawing.Point( _
                (MdiParent.ClientRectangle.Width - Me.Width - _
                WIDTH_OF_MENU_STATUS_BARS), MyBase.Location.Y)
        End If

        'If I'm over the bottom boundry, drop back to right against that edge
        If Me.Location.Y + Me.Height > _
            MdiParent.ClientRectangle.Height - HEIGHT_OF_MENU_STATUS_BARS Then
            MyBase.Location = New System.Drawing.Point( _
                MyBase.Location.X, (MdiParent.ClientRectangle.Height - _
                Me.Height - HEIGHT_OF_MENU_STATUS_BARS))
        End If

        'If I'm over the top boundry, drop back to the edge
        If Me.Location.Y < 0 Then
            MyBase.Location = New System.Drawing.Point(MyBase.Location.X, 0)
        End If

        'If I'm over the left boundry, drop back to the edge
        If Me.Location.X < 0 Then
            MyBase.Location = New System.Drawing.Point(0, MyBase.Location.Y)
        End If
    End If
    alreadyMoved = False
End Sub

Answer 2

为了澄清，您说的是MDI客户端的“桌面”区域是客户区。

您可以处理子表单的resize / move事件处理程序，然后在超出MDI客户端区域范围时调整/限制子项的移动。

Answer 3

禁用MDI窗口滚动条
挂钩所有子窗口的OnMove事件。如果窗口移动到边界之外，则沿着x和y“弹回”它，直到它回到父级内部。

Winforms MDI“桌面”区域边界

3 个答案: