我怎样才能让这些图像显示在 MessageDlg 中？

Question

我想制作自己的 MessageDlg，因为标准的 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;