如何制作动画启动界面

Question

我想在程序启动时播放一段flash，大约３秒左右，然后自动跳转到程序主界面，请问在Ｄelphi中能实现吗，如何实现？？？

Answer 1

可以实现的啊
用Shock wave  Flash

Answer 2

可以实现。用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;

Answer 3

楼上的详细，我们也是用shockwave flash的。