代码之家 › 专栏 › 技术社区 › Marus Gradinaru

我怎样才能得到这些图片显示在邮件中?

delphi-2009 dialog delphi

0

Marus Gradinaru · 技术社区 · 6 年前

1 回复 | 直到 6 年前

1

Marus Gradinaru 6 年前

在大卫的建议下,我是这样做的:

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;