Image控件播放 GIF文件

uses Vcl.Imaging.GIFImg; procedure TForm1.Button2Click(Sender: TObject); begin     Image1.Picture.LoadFromFile('1.gif');     Image1.Transparent:=True;     TGIFImage(Image1.Picture.Graphic).AnimationSpeed :=100;     //原速度播放 end;

来自为知笔记(Wiz)