关于webbrowser问题 ( 积分: 100 )

Y

yelian_2004

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-18

• #1

当点击webbrowser中的链接时，如何让IE弹出相应的链接页面？

 

Y

yelian_2004

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-18

• #2

当点击webbrowser中的链接时，如何让IE弹出相应的链接页面？

 

Y

yeskert1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-18

• #3

(不好意思！刚才“张冠李戴”了，删除！)

 

N

newsmile

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-31

• #4

建议参考： http://eagleboost.diy.myrice.com/

 

Y

yelian_2004

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-31

• #5

webbrowser.OnNewWindow2事件如何编写！
请大侠给个例子吧！

 

阿

阿狗

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-31

• #6

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
begin
Cancel:=true;
WebBrowser1.Navigate (NewURL);
end;

这是控制自己的浏览器在点击网页的链接时,在同一个页面打开.其实不太懂你的用意.呵呵^

 

Y

yeskert1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-31

• #7

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
begin
Cancel:=true;
winexec(pchar('Explorer.exe '+url),0);//手工启动浏览器！
end;

 

Y

yeskert1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-31

• #8

刚才直接修改阿狗的内容，没看清事件，实际应该在BeforeNavigate2中，即
procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
Cancel:=true;
winexec(pchar('Explorer.exe '+url),0);//手工启动浏览器！
end;