学步园

CSDN上看到的方法，自己整理了一下。

按任意位置都能拖动：

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    if Button=mbLeft then
    begin
         ReleaseCapture;
         Form1.perform(WM_SysCommand, $F012, 0);
    end;
end;

按固定位置拖动：

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button=mbLeft then
  begin
    ReleaseCapture;
    Form1.perform(WM_SysCommand, $F012, 0);
  end;
end;