我需要在运行时将 png 图像添加到TImageList. 我查看了由实现的功能，TCustomImageList但它们只允许添加
例如：
function Add(Image, Mask: TBitmap): Integer;
function AddIcon(Image: TIcon): Integer;
function AddImage(Value: TCustomImageList; Index: Integer): Integer;
procedure AddImages(Value: TCustomImageList);
function AddMasked(Image: TBitmap; MaskColor: TColor): Integer;
如何在不将此图像转换为 BMP 的情况下将 PNG 图像添加到 ImageList 组件？
IDE 已经可以在设计时将 PNG 添加到 ImageList：
现在我们需要在运行时进行。
Delphi XE 支持处理 png 图像和带有 alpha 通道的 32 位位图。以下是将 png 添加到 ImageList 的方法：
uses CommCtrl;
var pngbmp: TPngImage;
bmp: TBitmap;
ImageList: TImageList;
begin
ImageList:=TImageList.Create(Self);
ImageList.Masked:=false;
ImageList.ColorDepth:=cd32bit;
pngbmp:=TPNGImage.Create;
pngbmp.LoadFromFile('test.png');
bmp:=TBitmap.Create;
pngbmp.AssignTo(bmp);
// ====================================================
// Important or else it gets alpha blended into the list! After Assign
// AlphaFormat is afDefined which is OK if you want to draw 32 bit bmp
// with alpha blending on a canvas but not OK if you put it into
// ImageList -- it will be way too dark!
// ====================================================
bmp.AlphaFormat:=afIgnored;
ImageList_Add(ImageList.Handle, bmp.Handle, 0);
您必须包括
图像列表，PngImage
如果您现在尝试：
Pngbmp.Draw(Bmp1.Canvas,Rect);
and
ImageList.Draw(Bmp1.Canvas,0,0,0,true);
你会看到图像是一样的。实际上，由于 alpha 混合期间的舍入误差，存在一些 \pm 1 rgb 差异，但您无法用肉眼看到它们。忽略设置 bmp.AlphaFormat:=afIgnored; 会导致第二张图像更暗！
最好的祝福，
亚历克斯
根据 MSDN，图像列表只能包含位图和图标。要将 png 图像添加到图像列表，您必须先将其转换为图标。可以在PngComponents包中找到执行此操作的代码。如果您的图像列表中只有 PNG 图像，则为简单起见，只需使用该软件包附带的 TPngImageList 即可。