在Delphi程序中应用IE浏览器控件

　　在下面例子中，演示了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.webbrowser do{在指定窗口中的IE浏览器控件中显示动画}
begin
navigate(URL,Flags,TargetFrameName,PostData,Heads);{显示动画文件}
end;
end;

以上程序在PWIN98 Delphi3.0下调试通过。