Delphi移动无标题窗体...

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

//--------Delphi移动无标题窗体------------------------------------
procedure TForm1.OnMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    ReleaseCapture;
    SendMessage(Self.Handle,WM_NCLBUTTONDOWN,HTCAPTION,0);
end;
///////////////////////////////////////////////////////////////////////