在窗体的OnMouseDown事件中加入下面几行代码即可 If Button = mbleft Then begin ReleaseCapture; SendMessage(MainForm.Handle,WM_NCLBUTTONDOWN,HTCAPTION,0); end; 若窗体的表面被别的控件履盖掉,则需要把上面的代码加入履盖的控件里面。