设置MainFormOnTaskBar引发模态对话框层级问题的解决办法

一、核心结论：必须设置Application.MainFormOnTaskBar := True才能实现主窗体实时预览 #

旧模式（MainFormOnTaskBar := False）下，Windows任务栏关联的是VCL隐藏的Application窗口，而非你的业务主窗体。任务栏预览显示的是这个Application窗口的内容，主窗体作为其子窗口，无法实时同步到预览中。因此要实现主窗体的实时任务栏预览，必须启用MainFormOnTaskBar := True，再针对性修复模态窗口的层级问题。

二、通用修复方案（覆盖自定义窗体+内置对话框） #

1. 全局调整模态窗口的父窗口与层级逻辑 #

在项目.dpr文件中，Application.Initialize之后、Application.Run之前添加以下代码：

Application.MainFormOnTaskBar := True;
// 切换模态弹窗模式，强制沿用旧的父窗口关联逻辑
Application.ModalPopupMode := pmNone;

// 全局Hook所有窗体的CreateParams事件，统一处理模态窗口属性
var
  OldCreateParams: TCreateParamsEvent;
procedure GlobalCreateParams(Sender: TObject; var Params: TCreateParams);
begin
  if Assigned(OldCreateParams) then
    OldCreateParams(Sender, Params);

  // 对所有模态窗体（含ShowMessage、MessageDlg等内置对话框）统一处理
  if (Sender is TForm) and (TForm(Sender).FormStyle = fsModal) then
  begin
    Params.WndParent := 0;
    // 同步设置TOPMOST，避免被项目中已有的非模态置顶窗体遮挡
    SetWindowPos(TForm(Sender).Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE or SWP_NOSENDCHANGING);
  end;
end;

begin
  OldCreateParams := Application.OnCreateParams;
  Application.OnCreateParams := GlobalCreateParams;

该方案通过全局Hook统一处理所有模态窗体的创建参数，既模拟了旧模式下的父窗口逻辑，又解决了非模态置顶窗体遮挡模态窗口的问题，同时保留主窗体的任务栏实时预览功能。

2. 自定义窗体的精简优化 #

如果项目中有大量自定义模态窗体，可以创建基类统一处理，减少全局Hook的潜在影响：

type
  TBaseModalForm = class(TForm)
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  end;

procedure TBaseModalForm.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.WndParent := 0;
end;

所有自定义模态窗体继承此基类即可，内置对话框仍需依赖全局Hook处理。

3. 修复非模态置顶窗体的冲突逻辑 #

项目中非模态窗体使用HWND_TOPMOST会永久占据Z轴最高层，是导致模态窗口被遮挡的根源之一。可以将永久置顶改为临时置顶：

// 替换原有的HWND_TOPMOST设置
SetWindowPos(Self.Handle, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE or SWP_NOSENDCHANGING);
SetWindowPos(Self.Handle, HWND_TOP, 0, 0, 0, 0, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE or SWP_NOSENDCHANGING);

这样非模态窗体仅在激活时置顶，不会永久遮挡后续弹出的模态窗口。

三、MainFormOnTaskBar功能的后续改进 #

自Delphi 2007引入该属性以来，后续版本（含Delphi 11.2）的优化集中在：

• 任务栏预览的同步效率，减少画面延迟
• 高DPI环境下的预览适配
• MDI多文档场景的预览逻辑优化
  但核心的模态窗口父窗口判定逻辑未做修改，因此旧的层级冲突问题依然存在。

四、流程适配验证 #

启用上述方案后，你的项目将实现：

• 登录窗体ShowModal时任务栏图标提前出现，预览同步更新登录界面
• 初始化窗体、主窗体的任务栏预览保持实时更新
• 所有模态窗口（自定义+内置）的层级逻辑与旧模式一致，不会被非模态窗体遮挡

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