在DELPHI中实现无标题窗体的移动最简单的方法

在窗体的OnMouseDown事件中加入下面几行代码即可

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

若窗体的表面被别的控件履盖掉，则需要把上面的代码加入履盖的控件里面。