Delphi 2005 以上版本GIF动画播放设置

关于 GIF 的相关类是 TGIFImage，在 GIFImg 单元中，看下面的代码，窗体中的 GIF 就动起来了：

 

1 uses GIFImg;
1 procedure TForm1.FormCreate(Sender: TObject);
2 begin
3   // 先在窗体上放一个 TImage 组件：Image1；
4   Image1.Picture.LoadFromFile('C:\Example.gif');
5   // AnimationSpeed 设定动画速度，值越大，速度越快；
6   TGIFImage(Image1.Picture.Graphic).AnimationSpeed := 500;
7   TGIFImage(Image1.Picture.Graphic).Animate := True;
8 end;

 

 

 

posted @ 2013-04-30 21:31  aBung  阅读(336)  评论(0)  编辑  收藏  举报