怎样用WebBrowser控件打开网页,始终不会调用默认浏览器?

[stgsd]

我点击WebBrowser控件打开的网页中的元素后,往往调用默认IE浏览器打开新页面,
怎么保证总在WebBrowser控件中打开新页面?

[mynameis_007]

[code=Delphi(Pascal)][/WebBrowser1，WebBrowser2

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
begin
ppDisp := WebBrowser2.Application;
end;
procedure TForm1.WebBrowser2BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
WebBrowser1.Navigate(string(URL));
Cancel := True;
end;]

[stgsd]

可以啊,
能解释下吗?
如果不用两个控件可以吗?