如何动态的向IMAGELIST中加图片

如何动态的向IMAGELIST中加图片 VCL组件开发及应用
http://www.delphi2007.net/DelphiVCL/html/delphi_20061226152817104.html

请问大家.有谁做过向IMAGELIST中动态的加图片吗?

var
Pic : TBitMap;
begin
Pic := TBitMap.Create;
Pic.LoadFromFile('c:\a.bmp');
ImageList1.Add(Pic,Pic);
Pic.Free;
end;

my

To :
lihuasoft(学习低调做人)

var
Pic : TBitMap;
begin
Pic := TBitMap.Create;
Pic.LoadFromFile('c:\a.bmp');
ImageList1.Add(Pic,Pic);
Pic.Free;
end

ImageList1.Add(pic,pic);
在这里你的第个参数是有啥用？

有的图片这样可以成功，有的会提示invalid image size

To 楼上： 没必要回答了，楼主已经闪人了。

发表时间： 2006-12-26 15:28:17
ＮＯＷ ： 2007-02-11。。。。。

先要清楚:ImageList1设定的大小要与Pic的大小一致,否则:invalid image size

var
Pic : TBitMap;
begin
Pic := TBitMap.Create;
Pic.LoadFromFile('c:\a.bmp');
ImageList1.Add(Pic,Pic);
Pic.Free;
end;