请继续指教 代码错误。。。

[csdn1915]

unit Unit1;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.OleCtrls, SHDocVw, Vcl.StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
WebBrowser1: TWebBrowser;
WebBrowser2: TWebBrowser;
procedure Button1Click(Sender: TObject);
procedure WebBrowser1NewWindow2(ASender: TObject; var ppDisp: IDispatch; var Cancel: WordBool);
procedure WebBrowser2BeforeNavigate2(ASender: TObject; const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData, Headers: OleVariant; var Cancel: WordBool);
private
{ Private declarations }
public
{ Public declarations }
end;


var
Form1: TForm1;
ppDisp: IDispatch;
Cancel: WordBool;

implementation


{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate(Edit1.text);
end;

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;
end.


双击了属性 还是不行 继续在IE打开webbrowser1的链接，，，
delphi 10.3 环境

[tanqth]

[csdn1915]

谢谢！晚上详细研究。

[csdn1915]

webbrowser2把webbrowser1挡住了 怎么样才能 相互不挡住 还有就是webbrowser2也可以在edit显示网址 TForm1.WebBrowser2OnBeforeNavigate2 要加 On 谢谢！

[tanqth]

引用 3 楼 csdn1915 的回复:

webbrowser2把webbrowser1挡住了 怎么样才能 相互不挡住 还有就是webbrowser2也可以在edit显示网址 TForm1.WebBrowser2OnBeforeNavigate2 要加 On 谢谢！

做在不同的窗体上或使用TabControl

[csdn1915]

群里面的大猿帮解决问题啦 unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.OleCtrls, SHDocVw, Vcl.StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; WebBrowser1: TWebBrowser; procedure Button1Click(Sender: TObject); procedure WebBrowser1NewWindow3(ASender: TObject; var ppDisp: IDispatch; var Cancel: WordBool; dwFlags: Cardinal; const bstrUrlContext, bstrUrl: WideString); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin WebBrowser1.Navigate(Edit1.text); end; procedure TForm1.WebBrowser1NewWindow3(ASender: TObject; var ppDisp: IDispatch; var Cancel: WordBool; dwFlags: Cardinal; const bstrUrlContext, bstrUrl: WideString); begin Cancel:= True; TWebBrowser(ASender).Navigate(bstrUrl); WebBrowser1.Silent:=True; edit1.Text:=bstrUrl; end; end.