如何动态的向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;

转载于:https://www.cnblogs.com/delphi2007/archive/2008/09/16/1291704.html