Question

delphi做的浏览器如何在打开一个网页的前提下打开另一个网页

如题，已经打开了一个网页，如何能在点开一个新的链接时用我自己写的浏览器打开，而不是用IE

Answer 1

设置默认浏览器呀

Answer 2

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
var str:string;
begin
try
Cancel:=false;
str:= WebBrowser1.oleObject.document.ActiveElement.GetAttribute('href');
if str<>'' then
WebBrowser2.Navigate(str);
except
end;
end;

追问

WebBrowser2.Navigate(str);什么意思，没有 WebBrowser2这个控件，只有 WebBrowser1

追答

WebBrowser2 可以自己加一个嘛。也可以代表你自己写的浏览器。
WebBrowser2.Navigate(str);将这一句替换成用你自己的浏览器打开str 这个网址就行了。