在时间函数里写上
begin
Img.Picture.LoadFromFile(’C:\help\3.gif')
// AnimationSpeed 设定动画速度。其实就是原始速度的百分比,例如50就是说是原始速度的50%;
TGIFImage(Img.Picture.Graphic).AnimationSpeed := 100
TGIFImage(Img.Picture.Graphic).Animate := True
end
就可以了。
在Image控件
中有一个picture属性,点击属性后面的
按钮
,就可以d出装入图片窗口,在窗口中点击LOAD按钮,然后选择图片就可以了。
如果想装入gif动画,可以在Delphi7下可以安装一下三方控件
gifimaged7c控件
安装以后Delphi下的Image控件就可以支持gif动画了。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)