Delphi显示GIF动画简单方法

在窗体中添加一个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动画。