移动窗口最常用的方法是通过标题栏拖动窗口。继续阅读，了解如何在没有标题栏的情况下为Delphi表单提供拖动功能，以便用户可以通过单击客户端区域的任意位置来移动表单。

例如，考虑一个没有标题栏的Windows应用程序的情况，我们怎样才能移动这样的窗口呢？事实上，创建带有非标准标题栏甚至非矩形窗体的窗口是可能的。在这种情况下，Windows如何知道窗口的边框和角在哪里？

wm_nchittest windows消息

Windows操作系统在很大程度上依赖于处理消息。例如，当您单击窗口或控件时，Windows会向其发送wm_LButtonDown消息，其中包含有关鼠标光标所在位置以及当前按下哪些控件键的其他信息。听起来熟悉吗？是的，这只是Delphi中的OnMouseDown事件。

类似地，每当鼠标事件发生时，即光标移动时，或当按下或释放鼠标按钮时，Windows都会发送wm_NCHitTest消息。

输入代码

如果我们可以让Windows认为用户正在拖动（已单击）标题栏而不是客户端区域，那么用户可以通过单击客户端区域来拖动窗口。最简单的方法是“愚弄”窗口，使其认为您实际上是在点击表单的标题栏。以下是您必须做的：

1.在表单的“私有声明”部分（消息处理过程声明）中插入以下行：

2.将以下代码添加到表单单元的“实现”部分（其中Form1是假定的表单名称）：

消息处理程序中的第一行代码调用继承的方法，以获取wm_NCHitTest消息的默认处理。过程中的If部分截取并更改窗口的行为。这就是实际发生的情况：当操作系统向窗口发送wm_NCHitTest消息以及鼠标坐标时，窗口返回一个代码，说明自己的哪个部分被击中。对于我们的任务来说，重要的信息是Msg.Result字段的值。此时，我们有机会修改消息结果。

这就是我们要做的：如果用户在表单的客户端区域单击了，我们会使窗口认为用户单击了标题栏。在Object Pascal“words”中：如果消息返回值是HTCLIENT，我们只需将其更改为HTCAPTION。

不再有鼠标事件

通过更改表单的默认行为，我们可以删除Windows在鼠标移动到客户端区域时通知您的功能。这个技巧的一个副作用是表单将不再为鼠标消息生成事件。

无标题无边界窗口

如果想要类似浮动工具栏的无标题无边框窗口，请将窗体的标题设置为空字符串，禁用所有边框图标，并将边框样式设置为bsNone。

通过在CreateParams方法中应用自定义代码，可以以各种方式更改表单。

更多wm_n切题技巧

如果您更仔细地查看wm_NCHitTest消息，您将看到函数的返回值指示光标热点的位置。这使我们能够对消息进行更多的处理，以创建奇怪的结果。

下面的代码片段将阻止用户通过单击“关闭”按钮来关闭表单。

如果用户试图通过单击标题栏并拖动来移动表单，则代码将用指示用户单击客户端区域的结果替换消息的结果。这可以防止用户用鼠标移动窗口（与我们在文章中所做的相反）。

在表单上有组件的

在大多数情况下，表单上都会有一些组件。例如，假设一个面板对象位于窗体上。如果面板的Align属性设置为alClient，则面板将填充整个客户端区域，因此无法通过单击来选择父窗体。上面的代码不起作用-为什么？这是因为鼠标总是在面板组件上移动，而不是在窗体上移动。

要通过在窗体上拖动面板来移动窗体，必须在面板组件的OnMouseDown事件过程中添加几行代码：

注意：此代码不适用于非窗口控件，如TLabel组件。