謝謝.

Form1: TForm1; CurrentURL:string; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin CurrentURL:=webbrowser1.LocationURL; timer1.Enabled:=true; end; procedure TForm1.Timer1Timer(Sender: TObject); begin if CurrentURL=webbrowser1.LocationURL then begin //没有跳转 showmessage('没有跳转'); timer1.Enabled:=false; end; end;

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.