[150分] 怎么样强制webbrowser里原本在本窗口的打开的连接，在新窗口打开！ ( 积分: 150 )

比如原本在本窗口打开的连接，强制新开窗口，在新窗口打开。
我用 sendkeys('+~',true); 可以实现这个问题 但是会出现一个问题：就是
有<form >表单的，点一下也会自动提交的，那就引起了混乱。

比如原本在本窗口打开的连接，强制新开窗口，在新窗口打开。
我用 sendkeys('+~',true); 可以实现这个问题 但是会出现一个问题：就是
有<form >表单的，点一下也会自动提交的，那就引起了混乱。

高手快回答我啊

好像是在这个事件里处理
procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
//
end;

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
begin
//
end;