Delphi 无边框窗体移动

通常我们是点击窗体标题来移动窗口，如果想点击窗体任何部位就能移动需要在控件的MouseDown事件中加入代码

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if (ssLeft in Shift) then
  begin
    ReleaseCapture;
    SendMessage(Self.Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0);
  end;
end;