怎么将image存进list里面

Question

怎么将image存进list里面

Answer 1

var
  ImgLst:TImageList
begin
  ImgLst:=TImageList.Create(nil);
  try
    ImgLst.Add(YourImage,nil);
  finally
    ImgLst.Clear;
    ImgLst.Free;
  end;
end;

Answer 2

var
  ImgLst:TImageList
begin
  ImgLst:=TImageList.Create(nil);
  try
    ImgLst.Add(YourImage,nil);
    ImgLst.GetBitmap(index,YourNImage)//调用
  finally
    ImgLst.Clear;
    ImgLst.Free;
  end;
end;

Answer 3

谢谢，我是动态创建的image，可以这样子存进去吗

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
var
  Bitmap: TBitmap;
  Temp: TBitmap;
  Image:TjpegImage;
begin
  Bitmap := TBitmap.Create;
  Temp := TBitmap.Create;
  Image:=TjpegImage.Create;
  try
    Image.LoadFromFile('D:\Temp\9.jpg');      //  读入JPG
    Bitmap.assign(Image);                     //  读入JPG
//    Bitmap.LoadFromFile('D:\Temp\9.bmp');   //  读入BMP
    Temp.Width := ImageList1.Width;
    Temp.Height := ImageList1.Height;
    Temp.Canvas.StretchDraw(Temp.Canvas.ClipRect, Bitmap);
    ImageList1.Add(Temp, Temp);
  finally
    Image.Free;
    Temp.Free;
    Bitmap.Free;
  end;
end;
上述代码读入JPG文件读入ImageList

Answer 5

如果屏蔽11，12句，启动13句。 就是将BMP文件读入ImageList。