您的位置:首页 > 编程语言 > Delphi

Delphi 自带GIF控件的动画图片加载和播放

2016-08-17 16:43 1136 查看
delphi从CodeGear时期就已经将网上广为流传的TGIFImage控件(源文件名是GIFImage.pas)集成到VCL中,使用方法与原版的TGIFImage存放轻微差别,

首先引用单元 Vcl.Imaging.GIFImg,配合 TImage 控件进行使用,具体如下:

方法一:

procedure LoadGIFImage(img: TImage);
var
aGIFImage: TGIFImage;
begin
aGIFImage:=TGIFImage.Create;
aGIFImage.LoadFromFile('C:\test.gif');
aGIFImage.Animate := True; //主要是多了这句来激活,否则就是一张静止图
img.Picture.Assign(aGIFImage);
aGIFImage.Free;
end;


方法二:

procedure LoadGIFImage(img: TImage);
begin
img.Picture.LoadFromFile('C:\test.gif');
if img.Picture.Graphic is TGIFImage then
TGIFImage(img.Picture.Graphic).Animate := True;
end;
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: