TWebBrowser中点击超链接在指定窗口中打开页面

点击WebBrowser超链接时，如果不做任何处理，将会直接调用IE打开对应的页面，如果想在Delphi的窗口中打开超链接所对应的页面则需要进行简单的处理．
方法如下：
1　新建主窗口:TMainForm，在主窗口中放置一个TWebBrowser控件：WebBrowserMain，用于显示网页主页面(点击此页面中的超链接将在新Delphi窗口中打开超链接页面)；
2　再另外新建一个Delphi窗口或对话框:TReadForm，并在其中添加一个WebBrowser控件:WebBrowserRead，用于显示超链接页面；
3　在主窗口WebBrowserMain控件的　OnNewWindow2　事件中添加下面的代码：

procedure TMainForm.WebBrowserMainNewWindow2(ASender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
var
  FrmRead : TReadForm;
begin
  FrmRead := TFrmRead.Create(Self);
  ppDisp := FrmRead.WebBrowserRead.DefaultInterface;
  FrmRead.Show;
end;

4 完成．