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