Delphi移动无标题窗体...

最新推荐文章于 2026-02-13 10:43:47 发布

原创最新推荐文章于 2026-02-13 10:43:47 发布 · 3.9k 阅读

3 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#delphi #integer #button

收录于

Delphi 专栏收录该内容

7 篇文章

订阅专栏

本文介绍了一种在 Delphi 中实现无标题窗体移动的方法。通过重写窗体的 OnMouseDown 事件，利用 ReleaseCapture 和 SendMessage 函数发送 WM_NCLBUTTONDOWN 消息，可以使无边框窗体支持鼠标拖动移动。

在窗体(或控件)的OnMouseDown事件中加入下面几行代码即可

//--------Delphi移动无标题窗体------------------------------------
procedure TForm1.OnMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    ReleaseCapture;
    SendMessage(Self.Handle,WM_NCLBUTTONDOWN,HTCAPTION,0);
end;
///////////////////////////////////////////////////////////////////////