是否脱机浏览，TWebBrowser新增
AddressBar: 属性(Boolean)
是否显示地址栏，TWebBrowser新增
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
在下载页面开始前发生．
介绍过TwebBrowser控件的属性后，我在给大家介绍一下应用TwebBrowser控件的一些编程技巧。
1．显示一个GIF动画
如果你找不到显示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;
2．删除IE的历史记录
很想知道如何实现删除IE的历史记录的吧,下面一段程序事例将介绍如何编写
uses wininet;
procedure TForm1.Button1Click(Sender: TObject);
var
