在窗体(或控件)的OnMouseDown事件中加入下面几行代码即可
//--------Delphi移动无标题窗体------------------------------------
procedure TForm1.OnMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(Self.Handle,WM_NCLBUTTONDOWN,HTCAPTION,0);
end;
///