Delphi中用網頁打造程序界面

大家都知道，現在的網頁想要多花哨就有多花哨，比起傳統Windows應用程序界面單調的菜單加按鈕，不知會醒目多少。而且網頁素材十分豐富，制作起來也比較簡單。如果你想做一個華麗無比，動感十足的程序界面，那Web界面就是你最佳的選擇。

第一步：根據需要，用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編譯通過。）