Delphi 不用标题栏移动窗体

procedure TxxxxForm.FormMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
const
  sc_DragMove: Integer = $F012;
begin
  if ssCtrl in Shift then //判断“Ctrl”键是否按下
  Begin
   ReleaseCapture;        //释放鼠标事件的对象
    //(Sender as TWinControl).PerForm(wm_SysCommand, sc_DragMove, 0);
    //实现在组件内移动，如果是顶层，就是移动窗体
    //self.perform(WM_SYSCOMMAND, sc_DragMove, 0);
    //实现移动窗体
    //SendMessage(Self.Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0);
    //实现移动窗体
  end;
end;

以上注释的三段#9，#11，#13都可以起到移动窗体的效果。

procedure TxxxxForm.FormMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
const
  sc_DragMove: Integer = $F012;
begin
  if ssCtrl in Shift then //判断“Ctrl”键是否按下
  Begin
   ReleaseCapture;        //释放鼠标事件的对象
    //(Sender as TWinControl).PerForm(wm_SysCommand, sc_DragMove, 0);
    //实现在组件内移动，如果是顶层，就是移动窗体
    //self.perform(WM_SYSCOMMAND, sc_DragMove, 0);
    //实现移动窗体
    //SendMessage(Self.Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0);
    //实现移动窗体
  end;
end;