上一篇:Delphi组件开发-在窗体标题栏添加按钮
下一篇:Delphi拖动控件

拖动窗体的任意区域移动窗体

发布于: 2012/12/16 15:05:28   |  发布在: Delphi文章   |  点击:

这是一个通过捕获WM_NCHITTEST消息来实现拖动窗体的任意区域移动窗体的方法。

在Form1的public部分声明WM_NCHITTEST消息处理过程:

  public
    procedure OnWmncHitTest(var M: TWmncHitTest); message WM_NCHITTEST;

编写消息处理过程的代码:
procedure TForm1.OnWmncHitTest(var M: TWMNCHitTest);
begin
  inherited;
  if M.Result = HTClient then
    M.Result := HTCaption;
end;

拖动消息