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;