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;




你可能感兴趣的:(image)