delphi做一个浏览器

来源：百度知道 编辑：UC知道 时间：2024/06/18 06:23:04
我做好了一个浏览器 我把度的时候用它 弹出新窗口的时候 浏览器成了IE了 怎么样才能 让它永远在我浏览器弹出 还有上一页用这个代码 WebBrowser1.GoBack; 下一页呢

delphi 内置了 TWebBrowser 组件，该组件以 windows 的 IE 浏览器为核心，提供了一个浏览器的基本容器，能够实现浏览器的大部分功能。

此外，第三方组件中 TEmbeddedWB 类似于 TWebBrowser，但相比下，提供的功能更强大，更易用。

貌似用2个webbrowser.
procedure TForm1.WebBrowser1NewWindow2(ASender: TObject; var ppDisp: IDispatch; var Cancel: WordBool);
begin
ppDisp:=WebBrowser2.Application;
end;

procedure TForm1.WebBrowser2BeforeNavigate2(ASender: TObject; const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData, Headers: OleVariant; var Cancel: WordBool);
begin
WebBrowser1.Navigate(URL);
Cancel:=True;
end;