把图片数据读到一个TBitmap类型的数组中,然后在循环中重复绘制(建议放在一个线程中):var
Bitmaps: array of TBitmap; // 应该放在Form的变量声明中// 给Bitmaps赋值后for i:=Low(Bitmaps) to High(Bitmaps) do
begin
PaintBox1.Canvas.Draw(0, 0, Bitmaps[i]); // 绘制图形,假设是放在TPaintBox中画
Sleep(1000/24); // 暂停1/24秒
end;
Bitmaps: array of TBitmap; // 应该放在Form的变量声明中// 给Bitmaps赋值后for i:=Low(Bitmaps) to High(Bitmaps) do
begin
PaintBox1.Canvas.Draw(0, 0, Bitmaps[i]); // 绘制图形,假设是放在TPaintBox中画
Sleep(1000/24); // 暂停1/24秒
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货