var i:integer=1; procedure TForm4.BitBtn1Click(Sender: TObject); begin Inc(i); if i>ImageList1.Count-1 then i:=0; ImageList1.GetBitmap(i,image1.Picture.Bitmap) ; Self.Refresh; end;
image 读取 imagelist 里面图片
原文：http://www.cnblogs.com/xh0626/p/5078289.html
