vb.net - 捕获 WM_NCHITTEST 消息，但继续检查 MouseEnter/-Leave

Question

我有一个表格，我删除了标题栏但保留了边框（请参阅此答案）。

在上面的答案中，它声明需要FormBorderStyle设置为Sizableor SizableToolWindow，并且为了阻止表单变大，您需要捕获 WM_NCHITTEST 事件。唯一的问题是这样做不会引发正常Form_MouseEnter或Form_MouseLeave事件。

有什么解决方法吗？

我的代码：

Protected Overrides Sub WndProc(ByRef message As Message)
    If message.Msg = &H84 Then 'WM_NCHITTEST
        Me.Focus() 'Focus the form when it receives a click.
        Return
    End If
    MyBase.WndProc(message)
End Sub

Private Sub PanelForm_MouseLeave(sender As Object, e As System.EventArgs) Handles PanelForm.MouseLeave
    PlaceOnScreen(False) 'Placed a breakpoint here, it won't execute.
End Sub

Answer 1

这只是一个错误，WM_NCHITTEST 的返回值现在是 0。这意味着“鼠标无处”。所以很多东西停止工作，比如激活和聚焦窗口和 MouseEnter 事件。您必须返回 1（又名 HTCLIENT），意思是“它在客户区”：

Protected Overrides Sub WndProc(ByRef message As Message)
    If message.Msg = &H84 Then 'WM_NCHITTEST
        message.Result = CType(1, IntPtr)
        Return
    End If
    MyBase.WndProc(message)
End Sub