flash和delphi兼容吗？可不可以在我的窗体中插入个flash？

Question

我将我作的例子供你参考
---- 在delphi中的Component|Import ActiveX Contrals...中选中 "Shockwave
Flash(Version 1.0)",并单击Install,会出现一个install窗口。 
---- 如果要把它添加到一个已经存在的包中，在"into existing package"
对话框中的"Filename:"窗口中选择你想安装的路径，并单击"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,或到别的机器上找下列文件：delphi-->component-->imports activex control-->window\system32\macroed\flash\swflash.ocx,然后在activex页上就可以找到flash控件，

Answer 2

mediaplayer可以播放swf格式文件

Answer 3

surfguy(冲浪小子)说的很对，可以做到，我做过，你去试试，不会的话，给我邮件：[email protected]

Answer 4

导入flash的ocx文件，然后加到程序中，我干过，delphi会自动加上各种事件！