大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
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;
创新互联公司从2013年开始,是专业互联网技术服务公司,拥有项目做网站、成都做网站网站策划,项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命,1280元襄城做网站,已为上家服务,为襄城各地企业和个人服务,联系电话:18982081108