Delphi中显示Gif动画的方法

Delphi中显示Gif动画的方法如下:

方法1: 使用 TWebBrowser 组件

  self.WebBrowser1.Navigate('F:\Test\*.Gif');

  使用此方法时可能要涉及到TWebBrowser的去除滚动条问题, 还有就是gif图不能靠边,目前也不知道为什么...

方法2: 使用第3方 TRxGIFAnimator 控件

  首先设置其 Animate 属性为:True;

  RxGIFAnimator1.Image.LoadFromFile('F:\Test\*.Gif');

  设置属性 AsyncDrawing 为: True;(保证在主线程忙碌时能很好地播放动画).