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

分享标题：Delphi响应Html
文章来源：http://scyingshan.cn/article/gphpis.html