菜鸟提问，能不能加动画？50分

Question

在delphi中可以直接打开flash动画，并控制它播放和停止。你还可以得到它 
的总帧数，知道怎么实现的吗？请跟我来。 
在delphi中的Component|Import ActiveX Contrals...中选中 "Shockwave Flash(Version 
1.0)" 
并单击Install 会出现一个install窗口。 
---- 如果要把它添加到一个已经存在的包中，在"into existing package"对话框中的"File 
name:"窗口中选择你想安装的路径，并单击"OK"；会弹出一个确认的对话框，它问你"Package 
dclusr50.bpl will be rebuilt. Continue?" 单击"Yes"；在弹出的窗口中单击击"install" 该插件就安装完毕。 
---- 如果要把它添加到一个新建的包中，在"into new package"对话框中的 "File name:"窗口中 
选择你想安装的路径，并新建一个包，假如命名为test，并单击"OK"；它问你"Package test.bpl 
will be built. Continue?" 单击"Yes"。 在弹出的窗口中单击击"install" 该插件就安装完毕。 
---- 　　这时，你会在控件条的ActiveX下发现一个新的控件，名字为ShokewaveFlash 单击它把它放在form中，在该form中放一个OpenDialog控件和一个panel，在该panel上放四个 
button，他们的caption属性分别命名为"Openfile" Play Stop Close .设置panel1，ShockwaveFlash的Align 属性分别为Alleft 和AlClient; 分别在这四个Button的 
OnClick事件中写下如下代码： procedure TForm1.Button1Click(Sender: TObject); begin if OpenDialog1.Execute then ShockwaveFlash1.Movie:= OpenDialog1.FileName; end; 
procedure TForm1.Button2Click(Sender: TObject); begin ShockwaveFlash1.Play; end; 
procedure TForm1.Button3Click(Sender: TObject); begin ShockwaveFlash1.StopPlay; end; 
procedure TForm1.Button4Click(Sender: TObject); begin ShockwaveFlash1.FreeOnRelease; close; end; ---- 你可以得到打开的flash图像的总帧数，在panel1上添加一个label，在form1的OnClick事件 
中写下如下代码 procedure TForm1.FormCreate(Sender: TObject); begin label1.caption:=shockwaveflash.totalframes; end; 
你还可以控制该打开的flash图像从那一帧开始播放， 在panel1上添加一个button和一个Edit控件， 
在该button的OnClick事件中添加如下代码。 if ShockwaveFlash1.playing then ShockwaveFlash1.GotoFrame(SpinEdit1.Value); ShockwaveFlash1.Play; 
---- 在edit中填上你想跳到的帧，并单击该button 你即可实现该功能。

Answer 1

如果你的计算机已装了Flash，那就非常简单。如果还没装，那么光在网上下载flash 插件也可以，然后启动你的Delphi,再Component菜单项选Import ActiveX Control...，接下来在Import ActiveX Control项就会有Sockwave Flash (版本号)这项出现，选中它再按Install...按钮。
    现在你的Component面板有ShockwaveFlash控件了吧，它的使用方法和其他控件没有大的差别，做一个简单示例。
    新建一个Project,在Form上放一个button和一个opendialog 控件，再放上ShockwaveFlash件。opendialog 用于打开Flash文件(*.swf)，button的 onclick 事件如下：
begin
  opendialog1.execute;
  swf:=opendialog1.filename;
  shockwaveflash1.Movie:=swf;
  shockwaveflash1.play;
end;
    编译通过，你就可以用按钮打开对话框，选择*.swf文件就可以了。

Answer 2

能加，没有任何问题。你想加什么动画，FLASH么？？？

Answer 3

能，不过要加入一个ActiveX空间，好像是Shock..之类的，在
Compoents菜单下每个项安装

Answer 4

直接在你ACTIVEX中加入个FLASH控件，然后就不要我说了吧！

Answer 5

七剑飞仙说的很详细了，补充一点：
还要注意程序的运行环境是否支持FLASH，（NT 4就不支持的）即系统目录C:\WINDOWS\SYSTEM\Macromed\flash（98/ME）NT 有点不同
下要有个swflash.ocx文件，如果没，DOWN个插件来装就好了

Answer 6

不能导入flash的可执行文件，只能导入SHOCKWAVE吗