两个ImageList 互相拷贝图片的问题

Question

我现在在一个form上又两个ImageList
第一个有很多图片
第二个是空的
设置相同
但是拷贝后
图片却变成了黑色
？？
有没有人 有更好的方法
代码如下temp_image := Tbitmap.Create;
ImageList1.GetBitmap(0,temp_image);
Image1.Picture.Bitmap := temp_image;
ImageList2.Add(Image1.Picture.Bitmap,Image1.Picture.Bitmap);
temp_image1 := Tbitmap.Create;
ImageList1.GetBitmap(1,temp_image1);
Image1.Picture.Bitmap := temp_image1;
ImageList2.Add(Image1.Picture.Bitmap,Image1.Picture.Bitmap);

Answer 1

ImageList2.Add(Image1.Picture.Bitmap, nil);