Twebbrowser如何实现新窗口不要弹出,而在原窗口显示 ( 积分: 50 )

  • 主题发起人 主题发起人 NewLearner
  • 开始时间 开始时间
N

NewLearner

Unregistered / Unconfirmed
GUEST, unregistred user!
就是点击的开新窗口的链接,不要弹出来,还是显示在原来的窗口
 
有两种方法
1 把Twebbrowser中新网页文件在打开成功后重新写入当前操作的Twebbrowser
2 把Twebbrowser中的“target='_blank'”替换成“”,这样操作就不会开新的窗口了
 
如何如何替换替换替换啊?
 
onnewwindow2事件,把那个接口指回来
 
wanglogon

如果是弹出式网页对话框呢!你这样也可以吗?[:)]
 
给分吧,已测试通过的:
procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
begin
ppDisp:=WebBrowser1.DefaultDispatch;
WebBrowser1.BringToFront;

end;
 
楼上的:
我说的是,点击的开新窗口的链接,不要弹出来,还是显示在原来的窗口,
还是要显示在原来的窗口
拜托你看清问题再回答
 
Procedure TFrmMain.IENewWindow2(Sender: TObject; Var ppDisp: IDispatch;
Var Cancel: WordBool);
Begin
ppDisp := WebBrowser1.Application;
End;
 
后退
顶部