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