Delphi响应Html

procedure TForm1.WebBrowser1BeforeNavigate2(ASender: TObject;const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,Headers: OleVariant; var Cancel: WordBool);varmyurl,tstr:string;Stpos,len:Integer;beginif WebBrowser1.ReadyState=READYSTATE_COMPLETE then  //判断页面是否加载完成beginmyurl:=string(URL);                 //获取URLStpos:=LastDelimiter('#',myurl);    //获取URL中 #向后的字符个数len:=Stpos-1;                       //字符长度减一tstr:=Copy(myurl,stpos+1,len);      //组合过滤后子字符//判断用户点击了那个链接if tstr='caigou' thenbeginShowMessage('caigou');Cancel:=True;Exit;end;if tstr='caiwu' thenbeginShowMessage('caiwu');Cancel:=True;Exit;end;if tstr='xiaoshou' thenbeginShowMessage('xiaoshou');Cancel:=True;Exit;end;if tstr='cangku' thenbeginShowMessage('cangku');Cancel:=True;Exit;end;if tstr='renshi' thenbeginShowMessage('renshi');Cancel:=True;Exit;end;end;end;