设置默认浏览器呀
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;
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024