delphi - 在delphi中禁用窗体大小调整

Question

有什么方法可以阻止用户调整表单大小吗？

目前我正在使用:

当表单大小改变时......

MainForm.Height := 761;
MainForm.Width := 777;

但这看起来很糟糕，因为当用户尝试更改表单大小时它会闪烁。

Answer 1

固定大小很容易，您有两个选择:

1. Delphi 表单有一个 BorderStyle 属性和一个 BorderIcons 属性。如果您仅将 BorderStyle 设置为 bsDialog，将 BorderIcons 设置为 biSystemMenu，则用户无法调整表单大小。

2. 您可以为Constraints 属性指定值。如果向 MinWidth 和 MaxWidth 写入相同的数字，宽度将被固定。

防止移动更加棘手。我现在只能想出这些解决方案:

1. 将BorderStyle设置为bsNone。如果需要，您需要自己绘制表单标题。

2. 将消息处理程序写入 WM_NCHITTEST，首先调用继承，然后检查 Message.Result 中的 HTCAPTION。如果是 HTCAPTION，请将其设置为 HTCLIENT。这样，你就可以欺骗 Windows 认为用户没有单击标题，因此他将无法拖动。请尝试用户是否仍然可以移动窗口，打开系统菜单，然后选择“移动”。如果是这样，您也必须隐藏系统菜单 (BorderIcons)。

已找到答案 here .