用OCX控件在Delphi中播放Flash动画
技术与开发
读者：我想在Delphi的窗体中播放Flash动画，请问可以实现吗？
小编：当然可以，只要你学会使用OCX控件即可，具体操作如下。
在开发程序时使用OCX组件能充分提高程序代码的可重用性，加快程序项目的开发速度。我们可以把OCX组件看作一个黑匣子，这个黑匣子保存一个功能。当我们在程序项目要多次实现某一个功能时，可以单独把这个功能封装为一个OCX，再项目中多次调用它，从而提高项目开发效率。
调用OCX组件的方法为：先注册OCX组件。点击开始菜单的[运行]，输入RegSvr32 ***.ocx，再在编程环境下安装OCX组件，最后安装成功后就可以像使用普通组件一样在窗体中添加，设置其属性和方法后就能实现OCX的功能了。
设计思路：我们要明白播放Flash动画的控件是flash.ocx，这个控件位于Win2000中的Winnt\System32\ Macromed\Flash\flash.ocx，在Delphi编程环境下安装此控件到组件面板中，安装成功后在delphi的组件面板上就有ShockwaveFlash组件了；然后我们像使用Image组件一样在界面中添加这个组件，正确设置ShockwaveFlash的属性和方法后就可以在delphi窗体中播放Flash动画了。
实现过程
第一步：安装、导入Flash.ocx控件。要在Delphi中实现播放Flash动画，必须确定你的机器里要装有Flash播放软件（你的IE能显示Flash）。IE之所以能显示Flash是安装了由Macromedia公司提供的flash.ocx控件。
启动Delphi，点击菜单Component的[Import ActiveX Control]，弹出图1的对话框。
在图2中点击“Add” 按钮，在弹出的对话框中找到Winnt\System32\ Macromed\Flash\flash.ocx，这里的flash.ocx已经被Macromedia公司封装过了，我们不需要知道控件的开发过程。点击[打开]按钮，此时列表框中就出现“Shockwave Flash 1.0”，选择这一条再点击install就可以安装了，安装的组件页在“Palette page”中指定，默认在Active组件页中。安装成功后在Delphi的Active组件页中就有了一个ShockwaveFlash控件了。
第二步：新建一个工程，在窗体上放置1个Button、一个OpenDialog1、一个ShockwaveFlash1，如图3：
在浏览中写下面代码：
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.execute then
ShockwaveFlash1.movie:=openDialog1.filename;
end;
运行后，点击“浏览”按钮，定位到任意一个swf文件，窗体就可以播放Flash动画了！
总结
在Delphi窗体中播放Flash的关键是如何使用OCX组件。OCX组件的使用非常广泛，我们在实现一个复杂的系统时，可以把需要多次使用的功能生成一个OCX组件，在项目中调用这个组件来开发程序，这样可以多人同时进行开发工作，提高程序代码的可重用性，加快团队的开发效率。