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;

成都创新互联公司，专注为中小企业提供官网建设、营销型网站制作、响应式网站开发、展示型网站设计、网站建设等服务，帮助中小企业通过网站体现价值、有效益。帮助企业快速建站、解决网站建设与网站营销推广问题。

另外有需要云服务器可以了解下创新互联scvps.cn，海内外云服务器15元起步，三天无理由+7*72小时售后在线，公司持有idc许可证，提供“云服务器、裸金属服务器、高防服务器、香港服务器、美国服务器、虚拟主机、免备案服务器”等云主机租用服务以及企业上云的综合解决方案，具有“安全稳定、简单易用、服务可用性高、性价比高”等特点与优势，专为企业上云打造定制，能够满足用户丰富、多元化的应用场景需求。

分享文章：Delphi响应Html-创新互联
网站网址：http://cdysf.com/article/ehhch.html