一般情況下，移動一個窗體需要將鼠標放置在標題欄上才能拖動窗體，為 什么非要使用標題欄呢？其實我們可以使用一個巧妙的方法來實現(xiàn)將鼠標放置 在窗體上按下就可拖動窗體，下面先看實現(xiàn)代碼。在Form1的“Private”部分聲明過程：
在private部分加入下列代碼：
procedure wmnchittest(var msg:twmnchittest);
message wm_nchittest;
在程序部分加入以下代碼：
procedure TForm1.wmnchittest(var msg:twmnchittest);
begin
inherited;
if (htclient=msg.result) then msg.result:=htcaption;
end;
上面的關鍵代碼雖然只有兩行，但它實現(xiàn)了鼠標直接拖動窗體的目的。代碼的原理是利用窗體的WM_NCHITTEST消息，這個消息是當光標移動、鼠標按下或釋放時發(fā)生的，當程序檢測到鼠標在窗體中按下的消息后（消息的值為htClient），將鼠標在標題欄上按下時產(chǎn)生的消息（值為htCaption）傳遞出去，這樣就巧妙的欺騙程序認為是標題欄被按下，當然就可拖動窗體了。
