您好,登录后才能下订单哦!
密码登录
登录注册
点击 登录注册 即表示同意《亿速云用户服务条款》
procedure TForm1.WebBrowser1BeforeNavigate2(ASender: TObject; const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData, Headers: OleVariant; var Cancel: WordBool); var myurl,tstr:string; Stpos,len:Integer; begin if WebBrowser1.ReadyState=READYSTATE_COMPLETE then //判断页面是否加载完成 begin myurl:=string(URL); //获取URL Stpos:=LastDelimiter('#',myurl); //获取URL中 #向后的字符个数 len:=Stpos-1; //字符长度减一 tstr:=Copy(myurl,stpos+1,len); //组合过滤后子字符 //判断用户点击了那个链接 if tstr='caigou' then begin ShowMessage('caigou'); Cancel:=True; Exit; end; if tstr='caiwu' then begin ShowMessage('caiwu'); Cancel:=True; Exit; end; if tstr='xiaoshou' then begin ShowMessage('xiaoshou'); Cancel:=True; Exit; end; if tstr='cangku' then begin ShowMessage('cangku'); Cancel:=True; Exit; end; if tstr='renshi' then begin ShowMessage('renshi'); Cancel:=True; Exit; end; end; end;
免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。