s all browser
    related messages }
    　　　　　begin
    　　　　　　with {$IFDEF
    VER120}Application_{$ELSE}Application{$ENDIF} as
    　　　　　　　　IOleInPlaceActiveObject do
    　　　　　　　Handled := TranslateAccelerator(Msg) = S_OK;
    　　　　　　　if not Handled then
    　　　　　　　begin
    　　　　　　　　Handled := True;
    　　　　　　　　TranslateMessage(Msg);
    　　　　　　　　DispatchMessage(Msg);
    　　　　　　　end;
    　　　　　　　end;
    　　　　except
    　　　　end;
    　　　end; // MessageHandler
    　　（此方法来自EmbeddedWB.pas）
    ------------------------------------------------------------------------------------------------
    ８、直接从TWebBrowser得到网页源码及Html
    　　下面先介绍一种极其简单的得到TWebBrowser正在访问的网页源码的方法。一般方法是利用TWebBrowser控件中的Document对象提供的IPersistStreamInit接口来实现，具体就是：先检查WebBrowser.Document对象是否有效，无效则退出;然后取得IPersistStreamInit接口，接着取得HTML源码的大小，分配全局堆内存块，建立流，再将HTML文本写到流中。程序虽然不算复杂，但是有更简单的方法，所以实现代码不再给出。其实基本上所有IE的功能TWebBrowser都应该有较为简单的方法来实现，获取网页源码也是一样。下面的代码将网页源码显示在Memo1中。
    　　　Memo1.Lines.Add(IHtmlDocument2(WebBrowser1.Document).Body.OuterHtml);

    　　同时，在用TWebBrowser浏览HTML文件的时候要将其保存为文本文件就很简单了，不需要任何的语法解析工具，因为TWebBrowser也完成了，如下：
    　　　Memo1.Lines.Add(IHtmlDocument2(WebBrowser1.Document).Body.OuterText);

    ------------------------------------------------------------------------------------------------
    ９、“查找”功能
    　　查找对话框可以在文档获得焦点的时候通过按键Ctrl-F来调出，程序中则调用IOleCommandTarget对象的成员函数Exec执行OLECMDID_FIND操作来调用，下面给出的方法是如何在程序中用代码来做出文字选择，即你可以自己设计查找对话框。
    　　　var
    　　　　Doc: IHtmlDocument2;
    　　　　TxtRange: IHtmlTxtRange;
    　　　begin
    　　　　Doc :=WebBrowser1.Document as IHtmlDocument2;
    　　　　Doc.SelectAll;　　　　//此处为简写，选择全部文档的方法请参见第三条命令操作
    　　　　　　　　　　　　　　　　//这句话尤为重要，因为IHtmlTxtRange对象的方法能够操作的前提是
    　　　　　　　　　　　　　　　　//Document已经有一个文字选择区域。由于接着执行下面的语句，所以不会