Var
aBitmap: TBitmap;
begin
aBitmap := TBitmap.Create;
try
aBitmap.LoadFromFile('00.bmp');
ImageList1.AddMasked(aBitmap, aBitmap.TransparentColor);
finally
aBitmap.Free;
end;
end;
转载于:https://www.cnblogs.com/tecsoon/archive/2009/03/25/1421817.html
本文提供了一个使用Delphi加载位图到TBitmap组件并将其添加到ImageList的示例代码。此代码首先创建一个TBitmap实例,然后从文件加载位图,并通过指定透明颜色将位图添加到ImageList中。
4784

被折叠的 条评论
为什么被折叠?



