如何在Delphi 12.1的TTaskDialog中显示自定义图标？

• 必须设置MainIcon为tiCustom
  你当前的代码未指定MainIcon属性，默认它可能是tiNone或其他系统预设类型，会直接覆盖你加载的CustomMainIcon。在设计时找到MainIcon属性选择tiCustom，或者在代码里补充：

  TaskDialog2.MainIcon := tiCustom;
  

• 验证ICO文件的兼容性
  Windows任务对话框要求图标包含多尺寸（16x16、32x32、48x48等），单尺寸ICO可能在高DPI或Windows 11主题下无法正常渲染。换用带多尺寸的标准问号ICO，或者用图标工具给现有ICO补充必要尺寸。

• 排查Flags属性冲突
  检查Flags属性，确保未勾选tfNoIcon，这个标志会强制隐藏对话框图标。如果代码里有设置Flags，确保它不包含该值：

  TaskDialog2.Flags := TaskDialog2.Flags - [tfNoIcon];
  

• 运行时手动加载的备选方案
  若设计时配置仍无效，可在调用Execute前手动加载图标：

  procedure TForm1.YourButtonClick(Sender: TObject);
  begin
    TaskDialog2.MainIcon := tiCustom;
    TaskDialog2.CustomMainIcon.LoadFromFile('你的图标路径\question.ico');
    TaskDialog2.Execute;
  end;
  

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