本文整理自网络，侵删。
在窗体中添加一个TWebBrowser 组件、一个TOpenDialog组件和一个TButton组件，TWebBrowser组件用来显
示一幅图片，TOpenDialog组件和TButton组件用来激活提示用户选择GIF动画的对话框。
TWebBrowser组件可以显示网页，包括页面中有GIF动画的网页，所以TWebBrowser组件中有播放GIF动画的功能
。本实例利用这一功能来播放GIF动画，代码如下：
procedure TfrmMain.btnOpenClick(Sender: TObject);
begin
if self.OpenDialog1.Execute then
begin
self.WebBrowser1.Navigate(self.OpenDialog1.FileName);
end;
end;
当用户在程序运行过程中选择一个GIF动画后，通过TWebBrowser组件的Navigate方法显示GIF动画。
程序代码如下：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleCtrls, SHDocVw;
type
TfrmMain = class(TForm)
WebBrowser1: TWebBrowser;
btnOpen: TButton;
OpenDialog1: TOpenDialog;
procedure btnOpenClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmMain: TfrmMain;
implementation
{$R *.dfm}
procedure TfrmMain.btnOpenClick(Sender: TObject);
begin
if self.OpenDialog1.Execute then
begin
self.WebBrowser1.Navigate(self.OpenDialog1.FileName);
end;
end;
end.
保存文件，然后按F9键运行程序，程序运行的初始画面如图2-7所示。
单击“打开”按钮，就会弹出一个提示用户选择GIF动画文件的对话框，确认后，在窗体的TWebBrowser组件上
就会显示选中的GIF动画，
虽然Delphi没有提供直接支持GIF动画的组件，但是可利用其提供了TWebBrowser组件在程序中播放GIF动画。
相关阅读 >>
Delphi 2009 之 tstringbuilder 类[3]: replace
Delphi 在 listbox 中放置一��可�� item 的 tedit �m件
Delphi gettempdirectory 获取临时文件夹路径
更多相关阅读请进入《Delphi》频道 >>
