问题原因 #

使用SC_DRAGMOVE命令触发系统默认拖动行为时，系统会自动约束窗口位置，禁止窗口顶部超出屏幕可视边界（即Top不能为负值），这就是拖动时窗体跳回Top = 0的核心原因。

解决方案一：手动实现拖动逻辑 #

完全绕过系统默认的拖动约束，自己处理鼠标事件来控制窗体位置：

1. 首先在窗体类的私有部分添加变量，记录拖动起始偏移量：

private
  FDragOffset: TPoint;

2. 实现鼠标按下、移动、释放的事件处理：

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbLeft then
  begin
    // 记录鼠标相对于窗体左上角的偏移量
    FDragOffset := Point(X, Y);
    Cursor := crSizeAll;
  end;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  if ssLeft in Shift then
  begin
    // 根据鼠标移动量调整窗体位置
    Left := Left + (X - FDragOffset.X);
    Top := Top + (Y - FDragOffset.Y);
  end;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  Cursor := crDefault;
end;

这种方式完全自定义拖动过程，系统不会干预窗体位置，因此可以随意将窗体拖到屏幕外任意区域。

解决方案二：拦截窗口位置变更消息 #

通过处理WM_WINDOWPOSCHANGING消息，覆盖系统的位置约束逻辑：

1. 在窗体类的私有部分声明消息处理函数：

private
  procedure WMWindowPosChanging(var Msg: TWMWindowPosChanging); message WM_WINDOWPOSCHANGING;

2. 实现该消息处理函数：

procedure TForm1.WMWindowPosChanging(var Msg: TWMWindowPosChanging);
begin
  inherited;
  // 移除系统对位置的强制约束，允许窗体Top设置为负值
  Msg.WindowPos.flags := Msg.WindowPos.flags and not SWP_NOMOVE;
  // 如果需要更精确的控制，可以单独保留其他约束，仅允许Top为负值
  // 示例：若当前Top为负，强制保留该位置
  // if Top < 0 then
  //   Msg.WindowPos.y := Top;
end;

该方法在系统准备修改窗体位置时介入，调整位置参数，从而允许窗体超出屏幕顶部。

内容的提问来源于stack exchange，提问作者Michael R.