(50分)问:WebBrowser简单问题

KrisCn1 2008-03-23 08:35:29
现在WebBrowser1中显示的是BAIDU页面,然后我点了下其中某个网页 居然浏览器弹出来显示了 ,我想让所有的网页都显示在WebBrowser1中
...全文
73 6 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
KrisCn1 2008-03-24
  • 打赏
  • 举报
回复
虽然不是最简单的办法 但可以用 谢谢
lihuasoft 2008-03-24
  • 打赏
  • 举报
回复
[Quote=引用 4 楼 KrisCn1 的回复:]
晕 没有办法吗? 新窗口在 WebBrowser1中显示不行吗?
[/Quote]

虽然不敢说3楼的代码是最好的方法,但它却 的确 是 在WebBrowser1中打开新链接
KrisCn1 2008-03-24
  • 打赏
  • 举报
回复
晕 没有办法吗? 新窗口在 WebBrowser1中显示不行吗?
lihuasoft 2008-03-24
  • 打赏
  • 举报
回复

//网上找的思路:放一个WebBrowser2,隐藏
//不一定好用

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
begin
ppDisp := Self.WebBrowser2.OleObject;
end;

procedure TForm1.WebBrowser2BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
Cancel := True;
Self.WebBrowser1.Navigate(URL);
end;

procedure TForm1.FormShow(Sender: TObject);
begin
Self.WebBrowser1.Navigate('http://www.baidu.com');
Self.WebBrowser2.Width := 0;
Self.WebBrowser2.Height:= 0;
end;
lake_cx 2008-03-24
  • 打赏
  • 举报
回复
把你的注册为默认浏览器
byteh 2008-03-24
  • 打赏
  • 举报
回复
百度搜索结果的超链接是新开窗口的方式,这个不好强制要求

除非你偷梁换柱,获取点击的链接(某一搜索结果)的url,然后手动替换webBrowser的地址

只是个思路,没有试验过。

1,594

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 网络通信/分布式开发
社区管理员
  • 网络通信/分布式开发社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧