是否可以将 Form.Width 设置为 10000 像素？

Question

当您编译空白表单并尝试使用鼠标调整其宽度时，当它的客户端宽度接近屏幕分辨率宽度时，它可能会停止。

即使在设计器中也无法设置更宽的形式。 （很奇怪，我永远不会认为它会发生）。我也玩过Constraints，但这也不是解决办法。

是否可以将 Form.Width 设置为 10000 像素？

Answer 1

窗口大小受系统限制 - 您可以使用函数 GetSystemMetrics(SM_CXMAXTRACK) 检索此值 - 对于我的 1280x1024 显示器，它是 1292。

为了让您的表格更宽，您可以将消息WM_GETMINMAXINFO 提供所需的最大尺寸：

procedure WMGETMINMAXINFO(var M: TWMGetMinMaxInfo); message WM_GETMINMAXINFO;
...
procedure TForm1.WMGETMINMAXINFO(var M: TWMGetMinMaxInfo);
begin
  M.MinMaxInfo.ptMaxTrackSize.X := 5000;
  M.Result := 0;
  inherited;
end;

使用这样的消息处理程序，我可以在运行时成功设置Width := 5000;。

通常您应该能够使用表单的Constraints 属性并设置其MaxWidth 来实现此目的，如this answer 但TCustomForm 的WM_GETMINMAXINFO 在Delphi 7 中存在缺陷。从ConstrainedResize 方法调用消息处理程序依赖于一些 FSizeChanging 布尔字段，不幸的是它从未设置为 true。这已得到纠正，并且在 D2007 和 DXE 之间的某处删除了该字段。