在Flash大行其道的今天，是否想過在你的程式裡也加入幾幅flash炫一炫？我們就來試試，前提是你要裝有flash播放軟體（你的IE能顯示flash），IE之所以能顯示flash是安裝了一個swflash.ocx控件，由Macromedia, Inc.提供，我們也用它了，win98在$WindowsSystemMacromedFlash，win2k在$WinntSystem32MacromedFlash下。 ActiveX控制在windows裡是通用的，delphi當然也支持，打開你的delphi我們開始了。選擇選單Component --> Import ActiveX Control，選擇SWFlash.OCX 文件，安裝，完成後在ActiveX面板裡出現TShockwaveFlash控件，這是delphi對SWFlash.OCX的封裝，現在我們就可以用這個控件來播放flash了。拖曳一個過來放在form上，指定其Movie屬性為d: est.SWF，按F9，一切OK。 delphi程式設計就是這麼輕鬆、自在。
TShockwaveFlash主要屬性、方法、事件
屬性：
ReadyState - 讀取一個flash檔案時的狀態。 0=Loading, 1=Uninitialized, 2=Loaded, 3=Interactive, 4=Complete.
TotalFrames - 總幀數，只有當ReadyState = 4時才能存取。
FrameNum - 目前播放的影格。
Playing - 播放或暫停一個flash.
Quality - 指定目前渲染的質量，0=Low, 1=High, 2=AutoLow, 3=AutoHigh
ScaleMode - 縮放模式，0=ShowAll, 1= NoBorder, 2 = ExactFit。
AlignMode - 對齊模式，Left=+1, Right=+2, Top=+4, Bottom=+8。
BackgroundColor - 背景色，red*65536+green*256+blue，-1為預設顏色。
Loop - 是否循環。
Movie - 指定播放的flash檔案路徑，可以為一個URL.
方法：
Play() - 開始播放動畫。
Stop() - 停止播放動畫。
Back() - 播放前一格動畫。
Forward() - 播放後一格動畫。
Rewind() - 播放第一格動畫。
SetZoomRect(int left, int top, int right, int bottom) - 設定縮放的區域
Zoom(int percent) - 以百分比縮放。
Pan(int x, int y, int mode) - 縮放播放面板。模式為：0-按像數，1-按視窗百分比
事件：
OnPRogress(int percent) - 讀取一個flash時觸發。
OnReadyStateChange(int state) - 狀態改變時觸發。 states 可以為0=Loading, 1=Uninitialized, 2=Loaded, 3=Interactive, 4=Complete。
具體幫助請參閱http://www.macromedia.com/support/flash/
此為本人心血來潮之作，不足之處懇請指正,歡迎有興趣者共同探討（[email protected]）。