如何获取 MessageDlg 中显示的那些图像？答案

【问题标题】：How can I get those images shown in MessageDlg?如何获取 MessageDlg 中显示的那些图像？
【发布时间】：2018-08-13 15:58:49
【问题描述】：

我想制作自己的 MessageDlg，因为标准的没有我需要的。有没有办法获取这些图像（错误、信息、警告...）并在我的新 MessageDlg 中显示它们？

【问题讨论】：

使用 LoadIcon 获取这些标准图标。
太棒了！谢谢！但是这些图标在所有 Windows 版本中都具有相同的大小？
他们会吗？为什么要问？
没有。他们不必这样做。只是在TaskDialogIndirect Windows API 函数上如何显示对话框。
顺便说一句。你错过了什么？消息对话框在现代操作系统上非常灵活。

标签： delphi dialog delphi-2009

【解决方案1】：

根据大卫的建议，我是这样做的：

procedure TSaveErrorDlg.FormCreate(Sender: TObject);
var Ico: TIcon;
begin
 Ico:= TIcon.Create;
 Ico.Handle:= LoadIcon(0, IDI_ERROR);
 if Ico.HandleAllocated then Image.Picture.Assign(Ico);
 Ico.Free;
end;

【讨论】：