下一篇: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;