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  阅读(340)  评论(0编辑  收藏  举报