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动画。

相关阅读 >>

Delphi fdmemtable1建立缓存表 模糊查询

Delphi二值图像投影算法

Delphi firemonkey限制tedit只能输入数字的完美方法

Delphi 释放资源文件

Delphi ansiendstext 用法之一(路径结尾自动加\)

Delphi idhttp造成程序假死的解决办法

Delphi 用stringhelper.split分解字符串

Delphi firedac 下的 sqlite [6] - 加密

Delphi 选择一张照片,让照片缩略图显示在图片控件中间

Delphi filesearch 获取指定文件夹下所有文件包括隐藏文件

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...