基于VCL的应用跨显示器切换代码优化：解决仅移动标题栏问题

原代码的问题主要出在未处理窗体的窗口状态（如最大化）、直接使用VCL属性可能被系统窗口管理逻辑覆盖，以及未确保窗口位置和尺寸被系统正确应用。以下是修复后的实现：

核心优化点 #

• 先处理窗体的最大化/最小化状态，恢复到正常状态后再调整位置
• 使用系统API SetWindowPos 确保窗口位置和尺寸被强制应用
• 优先使用显示器的工作区矩形（排除任务栏等系统元素）
• 处理窗体的最小尺寸约束，避免无法适配目标显示器

优化后的代码 #

function SetApplication2NewMonitor(MonitorID: Integer): Boolean;
var
  Monitor: TMonitor;
  TargetRect: TRect;
  OriginalState: TWindowState;
  MainForm: TForm;
begin
  Result := False;
  // 验证输入的显示器ID
  if (MonitorID < 0) or (MonitorID >= Screen.MonitorCount) then
    Exit;

  MainForm := Application.MainForm;
  if not Assigned(MainForm) then
    Exit;

  Monitor := Screen.Monitors[MonitorID];
  // 获取目标显示器的工作区（排除任务栏、停靠栏等）
  TargetRect := Monitor.WorkareaRect;

  // 保存原窗口状态，若当前是最大化/最小化，先恢复到正常状态
  OriginalState := MainForm.WindowState;
  if OriginalState <> wsNormal then
  begin
    MainForm.WindowState := wsNormal;
    // 等待VCL处理状态切换，避免后续设置被覆盖
    Application.ProcessMessages;
  end;

  // 处理窗体最小尺寸约束，确保目标尺寸不小于窗体的最小宽高
  if TargetRect.Right - TargetRect.Left < MainForm.MinWidth then
    TargetRect.Right := TargetRect.Left + MainForm.MinWidth;
  if TargetRect.Bottom - TargetRect.Top < MainForm.MinHeight then
    TargetRect.Bottom := TargetRect.Top + MainForm.MinHeight;

  // 使用Windows API强制设置窗口位置和尺寸，绕过VCL可能的逻辑限制
  SetWindowPos(MainForm.Handle, HWND_TOP,
    TargetRect.Left, TargetRect.Top,
    TargetRect.Width, TargetRect.Height,
    SWP_NOZORDER or SWP_SHOWWINDOW);

  // 恢复原窗口状态（如果之前是最大化，现在在新显示器上最大化）
  if OriginalState = wsMaximized then
  begin
    MainForm.WindowState := wsMaximized;
    Application.ProcessMessages;
  end;

  Result := True;
end;

关键细节说明 #

• SetWindowPos API：相比VCL的BoundsRect属性，这个API更直接地通知系统调整窗口，避免VCL内部的状态检查或系统窗口管理器的拦截。
• 窗口状态处理：如果窗体处于最大化状态，直接修改BoundsRect会被系统忽略，因为最大化窗口的位置由系统管理，必须先恢复到正常状态再调整。
• 工作区矩形：使用WorkareaRect而非BoundsRect，确保窗口不会被任务栏或其他系统UI元素遮挡。
• 最小尺寸约束：避免目标显示器工作区小于窗体最小尺寸时，窗口无法正确显示的问题。

内容的提问来源于stack exchange，提问作者Franz