5,388
社区成员
发帖
与我相关
我的任务
分享请问如何在DELPHI程序中检测WebBrowser控件中的点击？
我有个问题，一直不知道如何做，请高手教教我：
--------------------------------------------
我的程序中只有一个WebBrowser控件，里面显示一个本地的网页，内容如下：
<BODY>
<BUTTON>点我</BUTTON>
</BODY>
我希望在我用鼠标点这个“点我”按钮时程序能用ShowMessage('OK')命令显示一个对话框：OK。
--------------------------------------------
我查了各种资料也不知道应该使用哪个事件、怎么写，请教教我，谢谢大家。
--------------------------------------------
我的程序中只有一个WebBrowser控件，里面显示一个本地的网页，内容如下：
<BODY>
<BUTTON>点我</BUTTON>
</BODY>
我希望在我用鼠标点这个“点我”按钮时程序能用ShowMessage('OK')命令显示一个对话框：OK。
--------------------------------------------
我查了各种资料也不知道应该使用哪个事件、怎么写，请教教我，谢谢大家。
...全文
请发表友善的回复…
发表回复
zczb 2007-01-03
- 打赏
- 举报
mark
vincentJsp 2006-08-25
- 打赏
- 举报
明白了能不能告诉我啊？
SunusCN 2006-08-22
- 打赏
- 举报
我明白问题出在哪里了，虽然有点麻烦，但问题解决了，谢谢各位。
SunusCN 2006-08-22
- 打赏
- 举报
我试了，好象不行呀。
grand_ness 2006-08-22
- 打赏
- 举报
支持
GARNETT2183(KingWolves (http://kevin-lu.blogspot.com))
的方法
GARNETT2183(KingWolves (http://kevin-lu.blogspot.com))
的方法
grand_ness 2006-08-22
- 打赏
- 举报
这个问题可以通过消息处理实现（稍微复杂点），
也可以通过 webbrowser 的WebBrowser1BeforeNavigate2自身来实现。
也可以通过 webbrowser 的WebBrowser1BeforeNavigate2自身来实现。
GARNETT2183 2006-08-22
- 打赏
- 举报
procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
If Pos('button1_', URL)>0 Then
Begin
ShowMessage('你选择了按钮一！');
Cancel:=True;
End;
end;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
If Pos('button1_', URL)>0 Then
Begin
ShowMessage('你选择了按钮一！');
Cancel:=True;
End;
end;
