如何动态的向IMAGELIST中加图片

Question

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

Answer 1

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

Answer 2

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);
在这里你的第个参数是有啥用？

Answer 3

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

Answer 4

先要清楚:ImageList1设定的大小要与Pic的大小一致,否则:invalid image sizevar
   Pic : TBitMap;
begin
   Pic := TBitMap.Create;
   Pic.LoadFromFile('c:\a.bmp');
   ImageList1.Add(Pic,Pic);
   Pic.Free;
end;