這是一個通過捕獲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;

總結

以上是生活随笔為你收集整理的拖动窗体的任意区域移动窗体的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。