在lazarus中加载带动画的Gif

Question

我使用此代码加载图片（gif）

image:TGIFImage;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.FormCreate(Sender: TObject);
begin
image:=TGIFImage.Create;
image.LoadFromFile('F:\ltdk\pic\bom.gif');
image3.Picture.Assign(image);
end;

但它不起作用，所以我需要知道如何在lazarus中加载带动画的gif？ 感谢

Answer 1

创建TGIFImage并在其中加载GIF只显示文件的框架，而不是为其设置动画。要为GIF文件设置动画，您需要一些代码。

您可以查看以下资源：

（本页上的最后一条消息:) http://forum.lazarus.freepascal.org/index.php/topic,14884.msg80387.html#msg80387

http://forum.lazarus.freepascal.org/index.php?topic=7818.0