procedure TForm1.Timer1Timer(Sender: TObject);
begin
Image1.Picture.Bitmap.Assign(nil);
ImageList1.GetBitmap(ImageList1.Tag, Image1.Picture.Bitmap);
if ImageList1.Tag + 1 < ImageList1.Count then
ImageList1.Tag := ImageList1.Tag + 1;
end;
begin
Image1.Picture.Bitmap.Assign(nil);
ImageList1.GetBitmap(ImageList1.Tag, Image1.Picture.Bitmap);
if ImageList1.Tag + 1 < ImageList1.Count then
ImageList1.Tag := ImageList1.Tag + 1;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货