DelphiVCL for Python点击窗口边框最小化图标无法最小化窗体

问题表现 #

未安装原生Delphi的Windows 10环境（搭配Python 3.10）下，使用DelphiVCL for Python开发的GUI程序整体运行正常，但点击窗体标题栏最小化图标时，窗体无法执行最小化操作。
最小复现代码：

from delphivcl import *

def main():
    Application.Initialize()
    Application.Title = "Template Python GUI Delphi VCL"
    app = Form(Application)
    app.SetProps(Caption = "Welcome")
    app.Show()
    FreeConsole()
    Application.Run()
    app.Destroy()

问题判定 #

该现象既不是框架的正常设计表现，也不是单设备独有的异常，属于代码写法适配问题，在同版本环境下可稳定复现。

故障原因 #

• 创建Form实例时未显式指定BorderIcons属性，无原生Delphi运行时依赖的环境下，标题栏最小化按钮的事件响应不会被默认注册
• FreeConsole()调用位置错误：放在app.Show()之后、Application.Run()之前执行时，会切断窗体和Windows系统窗口消息队列的关联，最小化操作对应的WM_SYSCOMMAND系统消息无法被窗体进程正常接收

修复方法 #

调整FreeConsole()的调用时机，同时显式声明窗体的标题栏按钮权限，修复后代码如下：

from delphivcl import *

def main():
    Application.Initialize()
    Application.Title = "Template Python GUI Delphi VCL"
    app = Form(Application)
    app.SetProps(
        Caption = "Welcome",
        # 显式启用标题栏系统菜单、最小化、最大化按钮
        BorderIcons = [biSystemMenu, biMinimize, biMaximize],
        WindowState = wsNormal
    )
    # 提前释放控制台，避免打断窗口消息绑定
    FreeConsole()
    app.Show()
    Application.Run()
    app.Destroy()

修复后点击标题栏最小化按钮即可正常将窗体收缩至任务栏，功能表现和常规Win32窗体一致。

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