请问用delphi7的image之Timage，怎么显示动图gif？

zzz19760225

请问用delphi7的image之Timage，怎么显示动图gif？
抄了两段，一段是调开关速度，另一段指向图片。拼接起来无法执行成功
用属性picture的图片选择，里面没有gif选择。
请问这个怎么处理显示呢？（或者有历史老代码的阅读空间）

1. 
   
2. unit Unit1;
   
3. 
   
4. interface
   
5. 
   
6. uses
   
7.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   
8.   Dialogs, ExtCtrls;
   
9. 
   
10. type
    
11.   TForm1 = class(TForm)
    
12.     Image1: TImage;
    
13.     procedure Image1Click(Sender: TObject);
    
14.   private
    
15.     { Private declarations }
    
16.   public
    
17.     { Public declarations }
    
18.   end;
    
19. 
    
20. var
    
21.   Form1: TForm1;
    
22. 
    
23. implementation
    
24. 
    
25. {$R *.dfm}
    
26. 
    
27. procedure TForm1.Image1Click(Sender: TObject);
    
28. begin
    
29. 
    
30. image1:timage;
    
31. image1:picture.loadfromfile(opendialog1.filename);
    
32. tgifimage(image1.picture.graphic).animationspeed:=100;
    
33. tgifimage(image1.pictura.graphic).animate:=true;
    
34. //(animationspeed=0 to 1000)
    
35. //animationspeed设定动画速度。其实就是原始速度的百分比，例如50就是说是原始速度的50%;
    
36. //如果设置animationspeed=0，则gif没有动画效果。
    
37. 
    
38.      Image1.Picture.LoadFromFile('1.gif');
    
39. end;
    
40. 
    
41. end.
    

复制代码

谢谢

Five66

试试参考看看下面的吧

https://zhidao.baidu.com/question/411100686.html
https://blog.csdn.net/lee576/article/details/3136602

zzz19760225

谢谢老师指点
（前面才看到，照着去搜索，又安装了delphi2010。
感觉头晕脑胀的，太费脑细胞了。
先歇一歇，去看看C语言的音乐变量）