在DELPHI中實現無標題窗體的移動最簡單的方法

在窗體的OnMouseDown事件中加入下面幾行代碼即可

If Button = mbleft Then begin ReleaseCapture; SendMessage(MainForm.Handle,WM_NCLBUTTONDOWN,HTCAPTION,0); end;

若窗體的表面被別的控件履蓋掉，則需要把上面的代碼加入履蓋的控件裏面。