标签：
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;
标签：
原文地址：http://www.cnblogs.com/xh0626/p/5078289.html
