var i:integer=1;
procedure TForm4.BitBtn1Click(Sender: TObject);
beginInc(i);
if i>ImageList1.Count-1 then i:=0;ImageList1.GetBitmap(i,image1.Picture.Bitmap) ;
Self.Refresh;
end;
var i:integer=1;
procedure TForm4.BitBtn1Click(Sender: TObject);
beginInc(i);
if i>ImageList1.Count-1 then i:=0;ImageList1.GetBitmap(i,image1.Picture.Bitmap) ;
Self.Refresh;
end;
转载于:https://www.cnblogs.com/xh0626/p/5078289.html