如何动态给ImageList添加图片？

[gzssqx]

请问如何动态给ImageList添加图片？多谢！!

[gzssqx]

解决了，结账

[gzssqx]

举个例子，Up,谢谢

[gzssqx]

怎么没人回应呢？

[ghz2000]

var
temp_image:Tbitmap;
begin
temp_image:=Tbitmap.Create;

temp_image.LoadFromFile('C:\我的文档\My Music\beck.bmp');

showmessage(inttostr(imagelist1.Add(temp_image,temp_image)));
temp_image.Free;
end;

[gzssqx]

多谢！再请问ghz2000(浩中)如何控制添加到第几个索引呢?

[gzssqx]

我连续添了两张图片，它好像不是以递增索引添加的，1和3

[ghz2000]

它是每次加入两个图片
所以1,3,5..
是对头的

[gzssqx]

var
temp_image,temp_image1:Tbitmap;
begin
temp_image:=Tbitmap.Create;
temp_image1:=Tbitmap.Create;
temp_image.LoadFromFile('1stboot.bmp');
temp_image1.LoadFromFile('picture1.bmp');
showmessage(inttostr(imagelist1.Add(temp_image,temp_image1)));
temp_image.Free;
temp_image1.Free;
end;
我是以上述代码来添的，我的意思是想把'1stboot.bmp'和'picture1.bmp'的图片分别设为
索引0和1，可同时添加后'picture1.bmp'不知道索引是多少了

[gzssqx]

var
temp_image,temp_image1:Tbitmap;
begin
temp_image:=Tbitmap.Create;
temp_image1:=Tbitmap.Create;
temp_image.LoadFromFile('1stboot.bmp');
showmessage(inttostr(imagelist1.Add(temp_image,temp_image)));
temp_image1.LoadFromFile('picture1.bmp');
showmessage(inttostr(imagelist1.Add(temp_image1,temp_image1)));
temp_image.Free;
temp_image1.Free;
end;
我这么添它的索引是1、3……
可我想把它按顺序排列,索引为0、1、2 ……或1、2、3……