delphi 播放flash

Question

高手们help下
    一个'play'按钮，我点击后播放**.swf,flash播放完成后自动关闭整个form.
这个功能怎么实现?
    

Answer 1

选择选单Component→Import ActiveX Control，找到ShockwaveFlash然后安装。安装完成后，ActiveX面板里出现TShockwaveFlash控件，用Play方法开始播放动画，OnReadyStateChange事件中newstate的值为4时表示播放结束，关闭form就可以了

Answer 2

用第三方控件吧
flashengine