Delphi中利用網頁打造程序界面

　　第一步：根據需要，用FrontPage或者Dreamweaver做一個界面，界面加上圖片，還可加上漂亮的動態Flash。Web界面與程序事件聯系在一起的地方就是“超鏈接”，我們以一個簡單的播放器程序為例。
比如：要做一個播放器，有“播放”按鈕和“停止”按鈕，分別設置“播放”按鈕的鏈接為“Play_”；“停止”按鈕的超鏈接為“Stop_”。並保存這個網頁文件為“WebFrm.htm”。

　　第二步：在Delphi中新建一個Project，設置Form1的長寬和剛才設計網頁一樣大小，在Form1上放置一個WebBrowser1控件，設置WebBrowser1的Align屬性為alClIEnt，我們是利用TWebBrowser來顯示網頁界面的。代碼如下：

procedure TForm1.FormCrea
teSender TObject
begin
WebBrowser1.NavigateD\播放器\WebFrm.htm//把“D\播放器”換成你保存WebFrm.htm的目錄
end
　　第三步：關鍵就在這步了。在響應Web界面上“播放”和“停止”的點擊事件時，就要用到TWebBrowser的OnBeforeNavigate2事件，它的代碼如下：

procedure TForm1.WebBrowser1BeforeNa
vigate2Sender TObject
const pDisp IDispatch var URL Flags TargetFrameName PostData
Headers OleVariant var Cancel WordB ool
　　在它的七個參數中，我們會用到URL和Cancel這兩個參數，在本例中，當你點擊“播放”按鈕時，URL就會返回“D\播放器\WebFrm.htm\Play_”這行字符串當點擊“停止”按鈕時，URL則返回“D\播放器\WebFrm.htm\Stop_”這行字符串。Cancel這個參數的用途是：當點擊“播放”按鈕時，Web想要跳轉到“D\播放器\WebFrm.htm\Play_”這個頁面，但根本沒這個頁面，WebBrowser1就會出現我們上網經常看到的“該頁無法顯示”這個頁面，這時把Cancel設為TrueWebBrowser1會斷開鏈接，就不會出現以上情況了。

　　具體代碼如下：

procedure TForm1.WebBrowser1BeforeNa
vigate2Sender TObject
const pDisp IDispatch var URL Flags TargetFrameName PostData
Headers OleVariant var Cancel WordB
ool
begin
if PosPlay_ URL > 0 then begin //當返回的URL含有“Play_”，就執行播放的代碼
ShowMessage播放//為簡單起見，用來代替播放的代碼。
Cancel = True
end
else
if PosStop_ URL > 0 then begin
ShowMessage停止//為簡單起見，用來代替播放的代碼。
Cancel = True
end
end
　　（以上代碼Delphi6+Win2000編譯通過。）