`
eueuy
  • 浏览: 70431 次
  • 性别: Icon_minigender_1
  • 来自: 天津
最近访客 更多访客>>
社区版块
存档分类
最新评论

如何捕捉WebBrowser中点击一个链接

阅读更多
问题:在WebBrowser中点击一个链接后,如何激活一个form? ( 积分:10, 回复:5, 阅读:33 )
分类:控件 - 使用 ( 版主:amo, cAkk )
来自:cfeeling, 时间:2004-7-15 20:17:00, ID:2714268 [显示:小字体 | 大字体]

 

请教  

来自:antong, 时间:2004-7-15 20:18:46, ID:2714271 | 编辑
g z  

来自:just for fun, 时间:2004-7-15 23:19:56, ID:2714410
在 WebBrowser 的
procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin

end;
判断 URL 然后执行相应操作就OK了.  

来自:cfeeling, 时间:2004-7-16 11:07:21, ID:2714980
楼上的能不能写清楚些?谢谢  

来自:Avalon, 时间:2004-7-16 11:10:18, ID:2714994
1<a href="nofebook">记事本</a>  //假设这是你脚本的一部分

procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
const
  hUrl = 'about:blank';
begin
if string(URL) = hUrl + 'nofebook' then
  begin
    WinExec('nofebook.exe',1);//把这句换成窗体打开的语句
    Cancel := True; //don't change page
    Exit;
  end;
end;
分享到:
评论

相关推荐

Global site tag (gtag.js) - Google Analytics