有关在Delphi中显示gif动画的问题

Question

有关在Delphi中显示gif动画的问题
用的是Tgifimage，其它控件也可

Answer 1

下面用的是TGIFImage
GIF.LoadFromFile(FileName);
GIF.Paint(Image1.Canvas, Image1.ClientRect, [goAsync, goLoop, goAnimate]);

Answer 2

我用的是RxGIFAnimator1控件，设置控件IMAGE属性，以及将Animate设置为TRUE就可以播放了

Answer 3

你可以用：
GIF.LoadFromFile(FileName);
Image1.Picture.Assign(GIF);
自然会显示成动画，注意是Image1.Picture.Assign,不是Image1.Picture.Bitmap.Assign如果动画有闪烁的话，可以增加：
Image1.Parent.DoubleBuffered:=True;就可以了。

Answer 4

http://home20.inet.tele.dk/tolderlund/delphi/
去这里下最新版本的源代码，还有DEMO，看看DEMO就知道怎么用了。

Answer 5

Var
 GIF    : TGIFImage;begin
   GIF := TGIFImage.Create;
   GIF.LoadFromFile('1.gif');
   Image1.Picture.Assign(GIF);
   GIF.Free;
end;