如何阻止ShowWindow将Delphi手动停靠子窗体宽度设为全屏？

解决方法 #

1. 锁定窗体初始位置为设计态 #

在调用Show()前，将子窗体的Position属性设置为poDesigned，强制Windows使用你预设的尺寸，而非系统默认值：

ChildForm.Position := poDesigned;
ChildForm.Show;

2. 重载CreateParams修改窗口样式 #

如果上述方法无效，在子窗体类中重载CreateParams，移除可能触发自动拉伸的窗口样式：

type
  TChildForm = class(TForm)
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  end;

procedure TChildForm.CreateParams(var Params: TCreateParams);
begin
  inherited;
  // 移除最大化样式，避免ShowWindow自动拉伸
  Params.Style := Params.Style and not WS_MAXIMIZE;
  // 禁用水平重绘的系统默认行为
  Params.WindowClass.style := Params.WindowClass.style and not CS_HREDRAW;
end;

3. 在OnShow事件中强制重置宽度 #

若前两种方案仍不生效，在子窗体的OnShow事件中手动指定宽度，该事件触发于ShowWindow之后、停靠逻辑之前：

procedure TChildForm.FormShow(Sender: TObject);
begin
  Width := 你的目标宽度; // 例如与父面板宽度一致或设计时的预设值
end;

问题原因解析 #

• Windows原生逻辑：user32.dll的ShowWindow函数在窗口未明确设置初始尺寸时，会自动使用当前显示器的默认分辨率宽度（1920是常见的全高清分辨率宽度），这是系统级的默认行为。
• Delphi窗体初始化规则：TForm默认的Position属性（如poScreenCenter或poDefault）不会强制锁定设计时的尺寸，而是将初始尺寸交由Windows决定。只有当Position设为poDesigned时，才会严格遵循Width和Height属性值。
• 停靠时序问题：ManualDock的适配逻辑是在窗体显示后才触发的，因此ShowWindow设置的默认宽度会先生效，之后才会被停靠逻辑修正，导致中间状态下宽度值不可靠。

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