正忙。
Visible: 属性(Boolean)，浏览器窗口是否可见。
(以下属性为在TWebBrowser新增，
TWebBrowser_V1中没有，其作用有待探索)
StatusBar: 属性(Boolean)，是否显示状态栏。
StatusText: 属性(WideString)，状态栏内容。
ToolBar: 属性(SYSINT)，工具栏中的内容。
MenuBar: 属性(Boolean)，是否显示菜单条。
FullScreen: 属性(Boolean)，是否全屏显示。
Offline: 属性(Boolean)，是否脱机浏览。
AddressBar: 属性(Boolean)，是否显示地址栏。
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浏览器控件的两个例子
---- （１）制作自己的帮助系统
---- 我们利用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;
---- （２）显示一个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.w
