老千真是坏!算了,我复制一些过来……
****************************************
如果你的计算机已装了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文件就可以了。