Delphi VCL GIF 动画

来源:互联网 发布:js生成uuid时间 编辑:程序博客网 时间:2024/06/05 16:59

Delphi XE10 的 VCL 已经内置支持 GIF,不需要第三方控件。


uses Vcl.Imaging.GIFImgprocedure TForm2.Button1Click(Sender: TObject);begin  Image1.Picture.LoadFromFile('E:\tt\abc.gif');  TGIFImage(Image1.Picture.Graphic).Animate := True;  //加上这句话,图就能动。end;


0 0
原创粉丝点击