GoBack:方法,後退到上一個頁面。
GoForward:方法,前進到下一個頁面。
GoHome:方法,調用默認的主頁頁面,該頁面在IE的選項中設定。
GoSearch:方法,調用默認的搜索頁面,該頁面在IE的選項中設定。
Refresh:方法,刷新當前頁面。
Stop:方法,停止調用或打開當前頁面。
LocationName:屬性(WideString),當前位置的名稱。
LocationURL:屬性(WideString),當前位置的URL。
Busy: 屬性(Boolean),是否正忙。
Visible: 屬性(Boolean),浏覽器窗口是否可見。
(以下屬性為在TWebBrowser新增,
TWebBrowser_V1中沒有,其作用有待探索)
StatusBar: 屬性(Boolean),是否顯示狀態欄。
StatusText: 屬性(WideString),狀態欄內容。
ToolBar: 屬性(SYSINT),工具欄中的內容。
MenuBar: 屬性(Boolean),是否顯示菜單條。
FullScreen: 屬性(Boolean),是否全屏顯示。
Offline: 屬性(Boolean),是否脫機浏覽。
AddressBar: 屬性(Boolean),是否顯示地址欄。
Navigate(const URL: WideString;var Flags, TargetFrameName, PostData, Headers: OleVariant):方法,調用指定頁面
具體參數如下:
URL:指定頁面的URL。
Flags:Word類型,作用還不清楚,可設為0。
TargetFrameName:WideString打開頁面所在的Frame,為空字符串時在當前的Frame中打開;TargetFrameName指定的Frame存在時在Frame中打 開;TargetFrameName指定的Frame不存在時則新建一個窗口打開,此時就相當於調用外部的IE浏覽器了。
PostData:boolean,是否允許發送數據。
Headers:WideString,要發送的URL請求的頭部數據。
TWebBrowser的常見事件主要有:
OnStatusTextChange = procedure(Sender: TObject; const Text: WideString) of object;
在狀態欄提示信息變化時發生,參數Text為當前狀態欄提示信息,我們可以根據該信息來更新我們自己的狀態欄提示信息或處理其它的事務.
OnProgressChange = procedure(Sender: TObject; Progress, ProgressMax: Integer) of object;
在打開頁面的進度變化時發生,參數Progress為當前進度,ProgressMax為總進度,我們可以根據這兩個參數來更新我們自己的狀態欄提示信息或處理其它的事務.
OnCommandStateChange = procedure(Sender: TObject; Command: Integer; Enable: WordBool) of object;
當執行新的命令時發生,Command為命令標識,Enable為是否允許執行該命令. OnTitleChange = procedure(Sender: TObject; const Text: WideString) of object;
在頁面的標題發生變化時發生,Text為當前標題.
OnPropertyChange = procedure(Sender: TObject; const Property_: WideString) of object;
在頁面的屬性發生變化時發生,Property_為屬性名稱 OnDownloadComplete: TNotifyEvent
在下載頁面完成後發生.
OnDownloadBegin: TNotifyEvent
在下載頁面開始前發生.
在Delphi程序中應用IE浏覽器控件的兩個例子
(1)制作自己的幫助系統
我們利用IE浏覽器控件為用戶制作了一個幫助系統,幫助文件由多個HTML文件組成,一個主題對應一個 HTML文件(Topic.HTM),每個主題下的項目對應HTML文件中的一個標簽(#Item)。這樣在我們的系統中,就不必再調用IE浏覽器或WinHelp程序來為用戶提供幫助了。相信大家知道Html幫助文件與傳統的HLP幫助文件相比的優勢所在吧。
在下面例子中,演示了TWebBrowser(IE4浏覽器控件)的Navigate方法的使用方法。請注意程序中的注釋。(下面為程序的主要片段)。
{根據主題和項目調用幫助文件}
procedure ShowHelp
( HelpTopic,HelpItem : String );
var
TargetFrameName,PostData,
Heads,Flags : OleVariant;
URL : widestring;
begin
TargetFrameName := '';{指定Frame的空字符串時,
則在當前Frame中打開幫助文件}
PostData := false;{不發送數據}
Heads := '';{Header信息為空}
Flags := 0;{Flags設為0}
URL := HelpTopic + '.HTM#'+HelpItem;
{幫助信息的URL}
with formHelp.webbrowser do{在幫助窗口
中的IE浏覽器控件中顯示幫助信息}
begin
navigate(URL,Flags,TargetFrameName,
PostData,Heads);{顯示幫助信息}
end;
end;
(2)顯示一個GIF動畫
假如你還沒有一個適合的動畫顯示控件,不妨試用一下下面方法.
procedure ShowGIF( GIFFileName : String );
var
TargetFrameName,PostData,Heads,Flags : OleVariant;
URL : widestring;
begin
TargetFrameName := '';{指定Frame的空字符串時,
則在當前Frame中打開動畫文件}
PostData := false;{不發送數據}
Heads := '';{Header信息為空}
Flags := 0;{Flags設為0}
URL := GIFFileName;
with formGIF.webbrowser do{在指定窗口中的
IE浏覽器控件中顯示動畫}
begin
navigate(URL,Flags,TargetFrameName
,PostData,Heads);{顯示動畫文件}
end;
end;