相关疑难解决方法(0)

我需要在运行时添加一个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:

现在我们需要在运行时完成它.