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中 #向后的字符個數(shù)
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;

創(chuàng)新互聯(lián)公司從2013年開始，是專業(yè)互聯(lián)網(wǎng)技術服務公司，擁有項目做網(wǎng)站、成都做網(wǎng)站網(wǎng)站策劃，項目實施與項目整合能力。我們以讓每一個夢想脫穎而出為使命，1280元襄城做網(wǎng)站,已為上家服務,為襄城各地企業(yè)和個人服務,聯(lián)系電話:18982081108