在Delphi中調用Flash

-----------------------文 老貓

----本文參考了Delphi世界之大富翁論壇上阿蒙和浦青鋒兩位大俠的
意見。
----原來我並不打算把這種問題放在網上，我以爲大家都會知道。後
來好友流雲建議說，她們班好多人都學Flash，很想知道如何在Delphi
中調用Flash。我就講了一下，並順便把它放在了主頁上。
----如果你的計算機已裝了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文件就可以
了。