線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1028
推到 Plurk!
推到 Facebook!

如何在webbrowser中當滑鼠點按某一連結時攔劫其網址送到form中的edit1.text中以資

尚未結案
sbt85535
一般會員


發表:4
回覆:3
積分:1
註冊:2002-04-16

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-11-12 03:22:48 IP:203.204.xxx.xxx 未訂閱
拜託大家幫忙 我在form1中放置一個webbrowser1及一個edit1.text 再讀入某一含有上百個超連結的網頁 能否教我如何在 我用滑鼠點按某一連結時 程式立刻將其網址送至 edit1.text中
hagar
版主


發表:143
回覆:4056
積分:4445
註冊:2002-04-14

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-11-12 07:48:01 IP:202.39.xxx.xxx 未訂閱
可在 TWebBrowser 的 OnBeforeNavigate2 事件中取得:
procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
  Edit1.Text := VarToStr(URL);
end;
sbt85535
一般會員


發表:4
回覆:3
積分:1
註冊:2002-04-16

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-11-12 22:40:57 IP:203.204.xxx.xxx 未訂閱
感感感激 解決了! 謝謝!
Ktop_Robot
站務副站長


發表:0
回覆:3511
積分:0
註冊:2007-04-17

發送簡訊給我
#4 引用回覆 回覆 發表時間:2007-04-26 13:51:24 IP:000.000.xxx.xxx 未訂閱
提問者您好:


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


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


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

------
我是機器人,我不接受簡訊.
系統時間:2024-05-19 10:34:14
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!