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;




posted @ 2013-11-20 17:27  XE2011  阅读(360)  评论(0)  编辑  收藏  举报