imagelist 在程序中如何增加图片项目？

Question

求教一个问题，我需要在程序中自由增加磁盘图片文件到imagelist中使用，请问如何做呢？

Answer 1

ImageList1.Insert看帮助，写的很清楚

Answer 2

谢谢楼上各位回贴！不过可能大家没理解我的意思，我的意思是比如磁盘上的图片文件，我指定一个文件路径让imagelist读进去（或通过什么变通的方法也行），Add和insert我都看过了，不会用，能否请给个例子说明一下.............另外，如果能象image1.Picture.LoadFromFile('文件名')那样简章调用就好了........我是新手，有劳大家了！

Answer 3

var
  bitmap:Tbitmap;
begin
  bitmap:=Tbitmap.Create;
  try
    bitmap.LoadFromFile('D:\1111.bmp');
    imagelist1.Add(bitmap,nil);
  finally
    bitmap.Free;
  end;
end;

Answer 4

或者用 insertvar
  bitmap:Tbitmap;
begin
  bitmap:=Tbitmap.Create;
  try
    bitmap.LoadFromFile('D:\1111.bmp');
//    imagelist1.Add(bitmap,nil);
    imagelist1.Insert(1,bitmap,nil);
    {这里的1，是imagelist1里图片很多的时候，将bitmap插入imagelist1里的位置，方便后边调用ImageList1.GetBitmap(1,Image1.Picture.Bitmap);}
  finally
    bitmap.Free;
  end;
end;

Answer 5

磁盘上的图片文件，我指定一个文件路径让imagelist读进去可以用OpenDialog或OpenPictureDialog来取得文件名及路径