delphi 新功能----------------
unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ExtCtrls,Vcl.Imaging.GIFImg;//一定要加这个不然编译通不过;typeTForm1 = class(TForm)Main1: TImage;btn1: TButton;procedure btn1Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm1: TForm1;implementation{$R *.dfm}procedure TForm1.btn1Click(Sender: TObject);beginpic_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;-08-27补充:
procedure TForm6.Button1Click(Sender: TObject);varMyGif: TGIFImage;beginMyGif := TGIFImage.Create;tryMyGif.LoadFromFile('D:\ShopDaxiaProject\ShopdaxiaAllImg\loading\loading_142.gif');MyGif.AnimationSpeed := 300;MyGif.Animate := True;Image1.Picture.Assign(MyGif);finallyMyGif.Free;end;end;procedure TForm6.Button2Click(Sender: TObject);vargif: TGIFImage;stream: TResourceStream;begingif := TGIFImage.Create;stream := TResourceStream.Create(HInstance, 'GifImage_1', RT_RCDATA);trygif.LoadFromStream(stream);gif.AnimationSpeed := 300;gif.Animate := True;Image1.Picture.Assign(gif);finallygif.Free;stream.Free;end;end;
如果觉得《delphi 播放GIF动画》对你有帮助,请点赞、收藏,并留下你的观点哦!