delphi TWebBrowser组件使用详解

delphi TWebBrowser组件使用详解
      该组件是一个浏览器组件，可以显示一个指定地址的网页、设置网页打开时的主页以及对网页进行相关的操作，同时也可以对HTML文件进行剪切、复制、粘贴、删除等操作。该
      组件在Internet组件页中。
      1．属性
      （1）AddressBar属性
      设置是否显示地址栏，在TWebBrowser中没有用。
      语法：
      property AddressBar: WordBool;
      （2）Busy属性
      确定Web浏览器组件是否正在导航到一个新的URL地址或正在下载文档。
      语法：
      property Busy: WordBool;
      示例：
      如果该属性值为True，则在开始一个新的操作前，可用Stop方法中止当前操作，然后再导航到其他的页面，代码如下：
      procedure TForm1.BitBtn1Click(Sender: TObject);
      begin
         if WebBrowser1.Busy then
           WebBrowser1.Stop;
         WebBrowser1.Navigate('www.mingrisoft.com');
      end;
      （3）Container属性
      访问Web浏览器父类或容器的接口。
      语法：
      property Container: IDispatch;
      示例：
      如果Web浏览器没有一个具有Automation接口的容器，则该属性的值为空。否则可以通过返回的接口，访问Web浏览器父类或容器，代码如下：
      if WebBrowser1.Container <> nil then
      begin
         WebBrowser1.Stop;
      end