如何在MessageDlg中显示这些图像？
如何在MessageDlg中显示这些图像？
提问于 2018-08-13 23:58:50
我想做我自己的MessageDlg，因为标准的没有我需要的东西。有没有办法获取这些图像(错误、信息、警告...)然后在我的新MessageDlg里展示吗？
回答 1
Stack Overflow用户
回答已采纳
发布于 2018-08-14 19:08:04
在David的建议下，我是这样做的：
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;页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/51826336
复制相关文章
相似问题
腾讯云开发者
