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;(保证在主线程忙碌时能很好地播放动画).
阅读(4772) | 评论(0) | 转发(0) |
