Move window的两种方法

1、通过控件，适合局部区域移动

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;

 Shift: TShiftState; X, Y: Integer);

 begin

 Windows.ReleaseCapture;

 Perform(WM_SYSCOMMAND, SC_MOVE + 1, 0);

 end;

2、通过处理窗口消息，适合整体窗口移动

procedure TTestForm.WMNCHitTest(var Msg: TWMNCHitTest);


 function CanDoDrag(const APos: TPoint): Boolean;

 begin

 Result := (APos.Y < 52);

 end;



 var

 LScreenPos: TPoint;

 LPos: TPoint;

 begin

 DefaultHandler(Msg);



 if Msg.Result = HTCLIENT then

 begin

 LScreenPos.X := Msg.XPos;

 LScreenPos.Y := Msg.YPos;

 LPos := ScreenToClient(LScreenPos);


 if CanDoDrag(LPos) then

 Msg.Result := HTCAPTION;

 end;

 end;