GifImage delphi2007 中播放Gif文件 AnimationSpeed不能起作用(50)

当使用如下方法时 AnimationSpeed起作用 Image1.Transparent:=true; TGIFImage(Image1.Picture.Graphic).AnimationSpeed:=60; TGIFImage(Image1.Picture.Graphic).OptimizeColorMap; TGIFImage(Image1.Picture.Graphic).Animate := True; TGIFImage(Image1.Picture.Graphic).Transparent:=true; Edit1.Text:=IntTostr(TGIFImage(Image1.Picture.Graphic).Images.Count);用如下方法，此时Gif以仅以原始速度运行，AnimationSpeed却不起作用 g:=TGIFImage.Create; P:=ExtractFilePath(Application.ExeName); g.LoadFromFile(P+'LOGO.GIF'); g.AnimationSpeed := 300; g.Animate :=true; Image1.Assign(g);请各位大侠帮忙！

这个到不知道，帮你顶了

OK！