delphi 播放GIF动画

 use GIFImg
procedure TForm1.Button1Click(Sender: TObject);
var pic_path:string;
begin
  pic_path := ExtractFilePath(ParamStr(0)) + 'img\gif\loading.gif';
  image1.Picture.LoadFromFile(pic_path);
  // AnimationSpeed 设定动画速度，值越大，速度越快
  TGIFImage(image1.Picture.Graphic).AnimationSpeed := 300;
  TGIFImage(image1.Picture.Graphic).Animate := True;
end;

posted on 2023-04-13 22:16 六十五度阅读(121) 评论(0) 编辑收藏举报

刷新页面返回顶部

登录后才能查看或发表评论，立即登录或者逛逛博客园首页

相关博文：

· delphi 资源文件管理 Resources and Images

· Delphi 获得文件大小的方法

· delphi等待动画

· 等待动画-进度条（转）

· 显示 jpg、png、gif 图片及 gif 动画

阅读排行：
· TypeScript + Deepseek 打造卜卦网站：技术与玄学的结合
· Manus的开源复刻OpenManus初探
· AI 智能体引爆开源社区「GitHub 热点速览」
· 三行代码完成国际化适配，妙~啊~
· .NET Core 中如何实现缓存的预热？

----我是谁我在哪----

delphi 播放GIF动画

导航

公告

搜索

常用链接

随笔分类

随笔档案

阅读排行榜

	use GIFImg
	procedure TForm1.Button1Click(Sender: TObject);
	var pic_path:string;
	begin
	pic_path := ExtractFilePath(ParamStr(0)) + 'img\gif\loading.gif';
	image1.Picture.LoadFromFile(pic_path);
	// AnimationSpeed 设定动画速度，值越大，速度越快
	TGIFImage(image1.Picture.Graphic).AnimationSpeed := 300;
	TGIFImage(image1.Picture.Graphic).Animate := True;
	end;