如何动态给ImageList添加图片？

Question

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;

Answer 1

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

Answer 2

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'不知道索引是多少了

Answer 3

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……