用Web控件打开一个Web页，当点击一个链接时，如何获得该链接点击的OnClick事件并且拦截这个事件。(100分)

  • 主题发起人 主题发起人 wjhn
  • 开始时间 开始时间
W

wjhn

Unregistered / Unconfirmed
GUEST, unregistred user!
我想实现这个功能，用Web控件打开一个Web页，当点击一个链接时，获得该链接点击的OnClick
事件并且拦截这个事件。

如以下链接：我的程序


当用户点击这个链接时，程序不是真要执行这个链接，而是执行我希望执行的procedure 或
function。
 
注意return false这样连接就不会执行。
function yourfunction(){
......
return false;
}
<a href='www.test.com' onclick="return yourfunction();">sad</a>
 
我也正头痛！
 
onclick 中处理事javascript 或者是vbscript 脚本啊！
好像不能直接调函数哦！
 
在NewWindow2事件里控制
 
在TWebBrowser中有一个事件叫BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool)
在这个事件中做你想做的一切呀：
procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
if URL='' then
...(执行你的程序呀！)
else
Cancel:=True
...
end;
 
这个问题没有人会解答吗？
如有人知道,我出200分先。
 
use TEmbeddedWB.
it has a Event: OnTranslateURL
it can help you :)

-----------------------------------
http://www3.msstudio.net/xuqian
 
这种方式实现不行吗？？？？？？
在TWebBrowser中有一个事件叫BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool)
在这个事件中做你想做的一切呀：
procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
if URL='' then
...(执行你的程序呀！)
else
Cancel:=True
...
end;
 
您必须登录或注册才可回复。

Similar threads

Ray
[转]终于可以发布Delphi下收点OSGI精髓皮毛而设计的插件框架WisdomPluginFramework
回复
4
查看
4K
chlkuei
C
A
怎样让程序自动点击链接进入下一个页面去搜集资料(100分)
回复
2
查看
159
adrich
A
Z
如何实现：点击网页超级链接后打开一个delphi窗体(不是调用某个可执行程序)？(50分)
回复
4
查看
157
zfs88
Z
F
如何在一个TWebBrowser内面里点击一个链接执行我的一段过程?(100分)
回复
2
查看
63
fangheling
F
阿
关于Webbrowser的问题。(200分)
回复
19
查看
310
阿蛮
阿
后退
顶部