delphi - 禁用双击最大化表单

Question

我想在用户调整大小时按比例调整大小。我在事件OnCanResize中使用以下代码完成了此操作：

NewHeight := Round(Height / Width* NewWidth);

为了防止用户通过单击最大化按钮来最大化表单，我设法禁用它，并使用以下代码处理消息 WMSysCommand：

if (AMsg.CmdType = SC_MAXIMIZE) then MessageBeep(0);

我没有设法避免在用户双击标题栏时使表格最大化。有什么办法可以在Delphi中做到吗？

我希望很明显，我不想阻止用户调整表单的大小。我只想在单击最大化按钮并双击标题栏时防止调整大小。

Answer 1

首先，删除在WM_SYSCOMMAND消息处理程序中使用的解决方法，然后仅从表单的biMaximize属性中删除BorderIcons选项，或者通过在Object Inspector中将BorderIcons.biMaximize设置为False，然后您将获得最大化按钮以及表单标题双击最大化禁用。

在运行时，您可以简单地使用：

BorderIcons := BorderIcons - [biMaximize]