在webBrowser中浏览网页，如果遇到target="_blank"  ,就会用IE打开，有什么办法可以让他在本身SDI中的WEBBROWSER中打开吗？ 不用tab控件更好。。。


我试过
procedure TForm1.WebBrowserNewWindow2(Sender: TObject; var ppDisp: IDispatch;
var Cancel: WordBool);
begin
// 將新視窗在自身開啟
ppdisp := webBrowser.Application;
end;
还是跳出新窗

 

[code delphi]
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(URL);
Cancel := True;
end;

[/code]

------
学

这种方法已经试过，没有用呀，再请教其他的方法。。。

===================引 用 yesoft 文 章===================

1. procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
3. procedure TForm1.WebBrowser2Before(Sender: TObject;

这是两个web控件
一个监视NewWindow\ 第二个监视Navigate2,并把url传给第一个 WebBrowser

------
学

我已经在form1中放置了两个webbrowser的。。

还是打开系统的浏览器。

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;var ppDisp: IDispatch; var Cancel: WordBool);
var
URL : WideString;
begin
Cancel := True;
With TWebBrowser(Sender) do
begin
URL :=((Document as IHTMLDocument2).activeElement as IHTMLElement).GetAttribute('href', 0);
Navigate(URL);
end;
end;

uses mshtml, ActiveX,ComObj;

这用了这段代码，还是弹出系统缺省浏览器的新窗口，真的没有办法了吗？
procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;var ppDisp: IDispatch; var Cancel: WordBool);
var
URL : WideString;
begin
Cancel := True;
With TWebBrowser(Sender) do
begin
URL :=((Document as IHTMLDocument2).activeElement as IHTMLElement).GetAttribute('href', 0);
Navigate(URL);
end;
end;

編輯記錄

看有無觸發 NewWindow2 事件。若無便要使用其他方法。
或po上網址才能瞭解原因。

兄弟可以做一个极简单的实例吗？谢谢。


===================引 用 RootKit 文 章===================
看有無觸發 NewWindow2 事件。若無便要使用其他方法。
或po上網址才能瞭解原因。

上述程式碼，已經過實際測試驗證。
HTML 內容定義一個捷徑 Target ='_blank'
點選後在目前的WebBrowser 顯示目標。

===================引 用 yesoft 文 章===================
兄弟可以做一个极简单的实例吗？谢谢。


===================引 用 RootKit 文 章===================
看有無觸發 NewWindow2 事件。若無便要使用其他方法。
或po上網址才能瞭解原因。

请将你的工程文件及源代码打包寄给我(taxcjf@tom.com)好吗？谢谢。

还是没解决问题呀