webbrowser打开超连接

Question

在webbrowser中打开超连接就会弹出IE打开超连接
怎么才能在webbrowser中打开超连接啊
在网上看了很多例子 都不行，都弹出IE
谁能帮忙解决下
还有就是网页屏蔽了回车键，按TAB选中后按回车不能打开连接，在IE内也不能
有没有办法在webbrowser里按回车就打开选中的连接啊

Answer 1

可以不让它弹出窗口
在Webbrowser控件的onNewWindow2事件中加上Cancel := True这样就弹不出来了
在BeforeNavigate2事件中加入WebBrowser1.Navigate (URL)
这样就可以了

Answer 2

三星移动创新者园地全新改版，真正为手机软件开发者提供帮助，谋福利。http://innovatorsamsungmobile.com/71 
提供资源：
1、 三星在线商店，机器预装，帮你推销软件。让你轻松赢得第一桶金。
2、 三星用户达八千九百万，市场份额占据第二位，存在巨大的商机。
3、 三星专用SDK、API、新功能指导建议，集中的机型适配所需资源。
4、 工程师答疑，帮助解决开发中的疑难杂症。
5、 免费远程真机测试—远程互联网预约挂在网上的真机，上传软件测试，机型丰富。
6、 常用源代码样例库。 

Answer 3

不好意思！试了一下果然不行，这样就可以了：
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw;type
  TForm1 = class(TForm)
    wb1: TWebBrowser;
    procedure FormCreate(Sender: TObject);
    procedure wb1NewWindow2(Sender: TObject; var ppDisp: IDispatch;
      var Cancel: WordBool);
    procedure wb1StatusTextChange(Sender: TObject; const Text: WideString);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
  strURL: string;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
  wb1.Navigate('http://www.163.com');
end;procedure TForm1.wb1NewWindow2(Sender: TObject; var ppDisp: IDispatch;
  var Cancel: WordBool);
begin
  Cancel := True;
  wb1.Navigate(strURL);
end;procedure TForm1.wb1StatusTextChange(Sender: TObject;
  const Text: WideString);
begin
  strURL := Text;
end;end.

Answer 4

不好意思！试了一下果然不行，这样就可以了：
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw;type
  TForm1 = class(TForm)
    wb1: TWebBrowser;
    procedure FormCreate(Sender: TObject);
    procedure wb1NewWindow2(Sender: TObject; var ppDisp: IDispatch;
      var Cancel: WordBool);
    procedure wb1StatusTextChange(Sender: TObject; const Text: WideString);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
  strURL: string;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
  wb1.Navigate('http://www.163.com');
end;procedure TForm1.wb1NewWindow2(Sender: TObject; var ppDisp: IDispatch;
  var Cancel: WordBool);
begin
  Cancel := True;
  wb1.Navigate(strURL);
end;procedure TForm1.wb1StatusTextChange(Sender: TObject;
  const Text: WideString);
begin
  strURL := Text;
end;end.