论坛 › Delphi交流 › 新手Delphi2010写浏览器，请大家看下

569514382 发表于 2014-4-26 07:57:13

这么厉害？？？？

linjicong 发表于 2014-4-26 10:13:49

看看，谢谢楼主分享。

王春阳 发表于 2014-4-26 14:43:42

nb‘’‘’

黑白印象 发表于 2014-4-26 16:48:19

看看咋样的，谢谢分享

DoubleDimos 发表于 2014-4-26 17:04:52

厉害啊，真的厉害。。

devilzhang1 发表于 2014-4-28 11:08:10

狂顶，支持。。。

lin9072 发表于 2014-5-31 23:57:23

对楼猪只能说,你太伟大了!!

哆嗦A梦 发表于 2014-6-1 01:41:32

Crazy迷恋. 发表于 2013-7-8 23:48 static/image/common/back.gif
最主要是要解决那个点击链接时不要让它弹IE或者默认的浏览器。当时学的时候就没有解决这个问题。烦人的问题 ...

procedure TForm4.WebBrowser1NewWindow2(ASender: TObject; var ppDisp: IDispatch;
var Cancel: WordBool);
begin

         Cancel :=True;
end;

procedure TForm4.WebBrowser1NewWindow3(ASender: TObject; var ppDisp: IDispatch;
var Cancel: WordBool; dwFlags: Cardinal; const bstrUrlContext,
bstrUrl: WideString);
begin
          Cancel := True;
          WebBrowser1.Navigate(bstrUrl);

end;



这样新页面就不会在IE中打开了。

confuss 发表于 2014-6-1 11:34:51

难得给力的帖子

xiao-tian5 发表于 2014-6-2 01:46:13

好厉害啊   看看啦

denggw 发表于 2014-6-2 09:48:24

学习一下。。。。。。。。。。

左半边的翅膀丶 发表于 2014-6-2 10:56:20

厉害哟。。。。

wujianzhi 发表于 2014-6-7 00:21:49

:titter:努力 加油

成王败寇 发表于 2014-6-10 03:35:08

:big1111111111111111111

huainian 发表于 2014-6-10 10:25:38

谢谢分享！！！！！！！！！！

℡鲥づ緔 发表于 2014-6-10 11:19:23

1111111111111111111111111

妖_异@ 发表于 2014-6-18 15:37:37

下载学习！！！谢谢

回家很好的 发表于 2014-6-18 19:07:27

看看啦！！！！！！！

tlwangxd 发表于 2014-10-22 15:36:19

1

修宁 发表于 2014-12-7 00:26:13

敢发隐藏贴，TJJTDS啦...
:o本贴由隐藏贴回复机快速回复

查看完整版本: 新手Delphi2010写浏览器，请大家看下