如何移動沒有標題的窗體

1、如何移動沒有標題的窗體 * "欺騙"系統,讓他認為點中的是窗體的標題行：在FORM的Private定義中作如下聲明： procedure WMNCHitTest(var M: TWMNCHitTest); message wm_NCHitTest; 函數的實現： procedure TForm1.WMNCHitTest(var M: TWMNCHitTest); begin inherited; if M.Result = htClient then M.Result := htCaption; end; ** 更為簡單的方法是這樣的：在窗體(或其他可視控件)的onMouseMove事件裡添加這樣的語句： if (ssleft in Shift) then begin ReleaseCapture; Perform(WM_syscommand, $F012, 0); end; 並且這種方法比上一種更靈活許多。