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

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

------解决方案--------------------

[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;]