请问怎样在Delphi中加入flash动画呢？谢谢！

Question

唉，同样的贴子很多啦～http://www.csdn.net/expert/topic/528/528450.xml

Answer 1

安装Activex控件（shockwaveflash)
flash提供了一个fscommand的动作(action),
设置它的动作,fscommand(command,arguments)其中,command命令名称,arguments命令参数,如:设置三个按钮,在三个按钮中分别设置action,
fscommand('endplay','message');
fscommand('endplay','play');
fscommand('endplay','quit');
然后在delphi中响应这个*.swf文件:如:
shockwaveflash1.movie:='*.swf';
在它的fscommand事件中响应
if command='endplay' then begin
case args of 
'message':do
'quti':do
'play':do
这样就可以了!请给分吧!