delphi - 禁用标题双击时的表单恢复

Question

1. 创建一个空的 Delphi VCL 项目
2. 删除主窗体的所有BorderIcons
3. 将 WindowState 设置为 wsMaximized
4. 运行应用程序。主窗口最大化。
5. 双击窗口标题。主窗口恢复其大小，并且无法再次最大化。

如何防止窗口在双击标题时恢复而不隐藏标题栏？

Answer 1

您可以拦截恢复以及移动系统命令，以通过拖动标题来防止恢复。

type
  TForm1 = class(TForm)
  protected
    procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;

...

procedure TForm1.WMSysCommand(var Message: TWMSysCommand);
begin
  case Message.CmdType and $FFF0 of
    SC_MOVE, SC_RESTORE: Exit;
  end; 
  inherited;
end;