如何在Delphi中显示GIF动画

来源：互联网发布：做一个淘宝店铺多少钱编辑：程序博客网时间：2024/05/23 19:20

编译环境为:WIN7+Delphi XE 3

源代码下载：http://www.ctdisk.com/file/16548150

主要代码如下：

unit Form_Main;interfaceuses  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,  System.Classes, Vcl.Graphics,  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls;type  TFormMain = class(TForm)    ImageShow: TImage;    procedure FormCreate(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end;var  FormMain: TFormMain;implementation{$R *.dfm}uses Vcl.Imaging.GIFImg;procedure TFormMain.FormCreate(Sender: TObject);var  GIF: TGIFImage;begin  DoubleBuffered := True;  GIF := TGIFImage.Create;  GIF.LoadFromFile('.\test.gif');  GIF.Animate := True;  ImageShow.AutoSize := True;  ImageShow.Picture.Assign(GIF);  GIF.Free;  ImageShow.Left := (ClientWidth - ImageShow.Width) div 2;  ImageShow.Top := (ClientHeight - ImageShow.Height) div 2;end;end.