如何用WEBBROWSER控件实现在浏览器中点击超链接时不弹出新窗口
如何用WEBBROWSER控件实现在浏览器中点击超链接时不弹出新窗口我用C#做的哦我的QQ182199967想做一个触摸屏的浏览器希望可以帮我一下很着急不弹出新窗口就是弹...
如何用WEBBROWSER控件实现在浏览器中点击超链接时不弹出新窗口
我用C#做的哦 我的QQ182199967 想做一个触摸屏的浏览器
希望可以帮我一下 很着急
不弹出新窗口 就是弹出新窗口的话 也在原来的窗口中打开
而不是关闭
着急的很 谁搞定我的问题 我给300分啦 展开
我用C#做的哦 我的QQ182199967 想做一个触摸屏的浏览器
希望可以帮我一下 很着急
不弹出新窗口 就是弹出新窗口的话 也在原来的窗口中打开
而不是关闭
着急的很 谁搞定我的问题 我给300分啦 展开
若以下回答无法解决问题,邀请你更新回答
1个回答
展开全部
控制打开新的页面在你的程序中,而不是默认用IE等别的浏览器。部分代码如下:
在窗口及WebBrowser创建完以后,写此代码:
WebBrowser.OnNewWindow2:=IE1NewWindow2;
给主窗口创建一个方法:
procedure TBrowForm.IE1NewWindow2(Sender: TObject; var ppDisp: IDispatch;var Cancel: WordBool);
Var NewForm:TBrowForm;
begin
try
NewForm :=TPopBrowerForm.Create(application);
NewForm.WebBrowser.OnNewWindow2 :=IE1NewWindow2;//如果在窗口的Oncreate事件
//有此代码,此处就可以省略
ppDisp := NewForm.WebBrowser.Application;
NewForm.Show;
Cancel:=false;
except
end;
end;
在窗口及WebBrowser创建完以后,写此代码:
WebBrowser.OnNewWindow2:=IE1NewWindow2;
给主窗口创建一个方法:
procedure TBrowForm.IE1NewWindow2(Sender: TObject; var ppDisp: IDispatch;var Cancel: WordBool);
Var NewForm:TBrowForm;
begin
try
NewForm :=TPopBrowerForm.Create(application);
NewForm.WebBrowser.OnNewWindow2 :=IE1NewWindow2;//如果在窗口的Oncreate事件
//有此代码,此处就可以省略
ppDisp := NewForm.WebBrowser.Application;
NewForm.Show;
Cancel:=false;
except
end;
end;
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |