有的网址的连接是加了_blank参数的,我想实现在指定的WebBrowser中打开这样的连(100分)

  • 主题发起人 主题发起人 snail1024
  • 开始时间 开始时间
S

snail1024

Unregistered / Unconfirmed
GUEST, unregistred user!
应该说就像那种标签浏览器一样,点了一个连接后不是打开新的浏览器,而是开了个新的标签,我这里只想在另一个WebBrowser中打开,请问这个一个如何去弄呢?谢谢 不够可以加分!WebBrowser1中的链接点击后在WebBrowser2中打开DELPHI实现方法!
 
OnBeforeNavigate

Cancel:=True;
WebBrowser2.Navigate(Url);
 
下面是我写的一个方法,你只要把第一个WebBrowser的OnNewWindow2事件指定它就可以了。
procedure TMain_Frm.DoOnWebBrowserNewWindow2(ASender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
var
WB: TWebBrowser;
Temp_TabSheet: ttabsheet;
IDoc:IHTMLDocument2;
begin
Temp_TabSheet:= TTabsheet.create(self);
WB:= TWebBrowser.Create(self);
Temp_TabSheet.PageControl:= pc;
Temp_TabSheet.InsertControl(WB);
PC.ActivePage:= Temp_TabSheet;
WB.Align:= AlClient;
ppDisp := WB.Application;
WB.OnNewWindow2:= DoOnWebBrowserNewWindow2;
end;
 
多人接受答案了。
 
还是没有说清楚呀。最好能看见具体设计的界面。
 

Similar threads

D
回复
0
查看
930
DelphiTeacher的专栏
D
D
回复
0
查看
871
DelphiTeacher的专栏
D
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
后退
顶部