如何显示GIF动画!!急(20)

新

新来的菜鸟

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-01-06

• #1

如何在窗体里显示GIF动画(最好是不使用第三方控件的情况下实现)麻烦大哥们告知小弟,谢谢!!

 

S

smlabc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-01-06

• #2

下载地址: http://www.2ccc.com/article.asp?articleid=1142只要引用這個 pas,就可以在 Image 中 Load Gif 了

 

D

duxing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-01-06

• #3

第三方控件 TgifImage 可以~说在程序里uses gifimage; 就可以直接用TImage控件显示gif文件了LZ试试~~

 

菜

菜鸟黄

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-01-06

• #4

procedure TForm1.Button1Click(Sender: TObject);begin ShockwaveFlash1.Movie :='E:/音乐/163982_64090.swf'; ShockwaveFlash1.Play ;end;

 

芙

芙蓉弟弟

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-01-06

• #5

教你一个最简单的办法 也不需要安装三方控件 直接放一个webborrows就可以了 self.webborrows.ne..('d://a.gif') 大概就这样 自己看吧~

 

冰

冰枫之夜

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-01-06

• #6

procedure TForm1.Button1Click(Sender: TObject);begin ShockwaveFlash1.Movie :='E:/音乐/163982_64090.swf'; ShockwaveFlash1.Play ;end;

 

M

maxerp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-01-07

• #7

Delphi 2007 以上的版本可以直接支持调用Gif动画，并播放

 

Z

zhuchengchuan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-01-07

• #8

delphi2007下的方法:关于 GIF 的相关类是 TGIFImage，在 GIFImg 单元中，看下面的代码，窗体中的 GIF 就动起来了：uses GIFImg;procedure TForm1.FormCreate(Sender: TObject);begin // 先在窗体上放一个 TImage 组件：Image1； Image1.Picture.LoadFromFile('C:/Example.gif'); // AnimationSpeed 设定动画速度，值越大，速度越快； TGIFImage(Image1.Picture.Graphic).AnimationSpeed := 500; TGIFImage(Image1.Picture.Graphic).Animate := True;end;

 

W

wql

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-01-07

• #9

Delphi自带的TAnimate就可以啊!

 

T

terry_zhou82

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-01-18

• #10

同意zhuchengchuan，方法很好啊。

 

新

新来的菜鸟

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-02-02

• #11

多人接受答案了。