我想做我自己的MessageDlg,因为标准的没有我需要的东西。有没有办法获取这些图像(错误、信息、警告...)然后在我的新MessageDlg里展示吗?
发布于 2018-08-14 11: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;
https://stackoverflow.com/questions/51826336
复制相似问题