在Delphi编程中播放Gif动画

郭明宙
2000年 第18期 

　　Delphi是一个功能强大的可视化开发工具。但是直到Delphi5，Inprise公司也没有为用户提供一个能播放Gif动画的控件，无奈之余，我驾着小猫“冲”上了因特网，终于找到了一个支持Gif动画的控件！不敢独享，现介绍如下。
　　你可以到http://www.dataweb.nl/～r.p.sterkenburg/GifImage.zip去下载这个控件，然后把它安装到Delphi中，安装完毕后，你就会在Additional控件栏中找到这个名为Gifimage的控件。
　　这个控件在使用上与其他的控件有些区别，你可别按照正常的用法，选中这个控件，然后在窗体上画出这个控件，再在它的Picture属性里装载一张Gif图片……好了，现在你所能做的就是按下Ctrl＋Alt＋Del，结束Delphi。Gifimage控件只能使用代码加载的方法，具体代码如下：
　　unit Unit1;
　　interface
　　uses
　　Windows， Messages， SysUtils， Classes， Graphics， Controls， Forms， Dialogs，
　　GifDecl，GifImgs， StdCtrls;//必须包含Gifdecl和Gifimgs单元
　　type
　　TForm1 = class（TForm）
　　Button1: TButton;{ Private declarations }
　　procedure FormCreate（Sender: TObject）;
　　procedure FormClose（Sender: TObject; var Action: TCloseAction）;
　　private
　　gifimage1:tgifimage;{ Private declarations }//创建gifimage
　　public
　　{ Public declarations }
　　end;
　　var
　　Form1: TForm1;
　　implementation
　　{SR ＊.DFM}
　　procedure TForm1.FormCreate（Sender: TObject）;
　　begin
　　GifImage1 := TGifImage.Create（Self）;//创建一个gifimage
　　GifImage1.Parent := Self;
　　GifImage1.LoadFromGifFile（′路径\example.gif′）;//装载一个gif文件
　　gifimage1.AutoSize :=true;//不加这条语句，图像有闪烁感
　　gifimage1.Transparent:=true ;
　　GifImage1.Animating := True;//开始播放动画
　　end;
　　procedure TForm1.FormClose（Sender: TObject; var Action: TCloseAction）;
　　begin
　　gifimage1.Free;//释放gifimage
　　end;
　　end.
　　现在再看看你的程序，是不是美观多了？若还有问题，可以和我联系:sumon@china.com。

 