在 DELPHI 中显示GIF动画(only test Delphi2007)

来源:互联网 发布:统计分析与r软件 编辑:程序博客网 时间:2024/05/12 11:44

uses GIFImg

 

Image1:TImage;

Image1.Picture.LoadFromFile(OpenDialog1.FileName);
// AnimationSpeed 设定动画速度。其实就是原始速度的百分比,例如50就是说是原始速度的50%;
TGIFImage(Image1.Picture.Graphic).AnimationSpeed := 500;
TGIFImage(Image1.Picture.Graphic).Animate := True;