delphi 播放GIF动画

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls,Vcl.Imaging.GIFImg;//一定要加这个不然编译通不过;

type
TForm1 = class(TForm)
Main1: TImage;
btn1: TButton;
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
pic_path := ExtractFilePath(ParamStr(0)) + 'img\gif\loading.gif';
submit_btn_status_img.Picture.LoadFromFile(pic_path);
// AnimationSpeed 设定动画速度，值越大，速度越快
TGIFImage(submit_btn_status_img.Picture.Graphic).AnimationSpeed := 300;
TGIFImage(submit_btn_status_img.Picture.Graphic).Animate := True;
end;

[b]2017-08-27补充：



[/b]

procedure TForm6.Button1Click(Sender: TObject);
var
MyGif: TGIFImage;
begin
MyGif := TGIFImage.Create;
try
MyGif.LoadFromFile('D:\ShopDaxiaProject\ShopdaxiaAllImg\loading\loading_142.gif');
MyGif.AnimationSpeed := 300;
MyGif.Animate := True;

Image1.Picture.Assign(MyGif);
finally
MyGif.Free;
end;
end;

procedure TForm6.Button2Click(Sender: TObject);
var
gif: TGIFImage;
stream: TResourceStream;
begin
gif := TGIFImage.Create;
stream := TResourceStream.Create(HInstance, 'GifImage_1', RT_RCDATA);
try
gif.LoadFromStream(stream);
gif.AnimationSpeed := 300;
gif.Animate := True;
Image1.Picture.Assign(gif);
finally
gif.Free;
stream.Free;
end;
end;