如何获得显示在MessageDlg中的那些图像？

Question

我想制作自己的MessageDlg，因为标准的没有我所需要的。是否可以获取这些图像（错误，信息，警告...）并将其显示在我的新MessageDlg中？

Answer 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;