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

有辦法做到把HyperLink拖曳到定點後,自動下載嗎?

答題得分者是:hagar
bighm
一般會員


發表:5
回覆:21
積分:15
註冊:2006-10-29

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-04-06 00:42:15 IP:210.64.xxx.xxx 未訂閱
請問各位先進(拜), Delphi 有沒有辦法做到類似 Flashget 一樣, 讓使用者把超連結拖曳到畫面上的某一處後,自動下載那個超連結 我之前曾在 VB6 實作出來,使用者將 HyperLink 拖曳到 Label 後,自動下載 (透過 oledragmode之屬性) 但是在 Delphi 內要作出相同之功能,目前沒有頭緒, 想請各位先進指點一下,如何可以做出相同的效果, 現成之 VCL 元件,或是給個方向均可, 先謝謝了!
hagar
版主


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

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-04-06 18:14:44 IP:202.39.xxx.xxx 未訂閱
使用這個 TMOleDragDrop 元件 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=47772 設定好 DropControl 屬性後(即要哪個 Control 來接受 Drag/Drop) 然後在 OnUrlDrop 事件中做 download 的動作 在該事件中的 aText 參數即為被 Drag/Drop 的連結    -- He just never quits.
bighm
一般會員


發表:5
回覆:21
積分:15
註冊:2006-10-29

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-04-07 01:21:43 IP:211.74.xxx.xxx 未訂閱
謝謝 hagar 大大提供的連結,問題大致上已解決 不過關於此元件,有個題外話的問題, 若要使用 DragEnter 事件時,好像會出錯, 開發環境為 D7,不知道是不是環境的影響 Delphi 產生之事件原始碼為: procedure TForm1.MOleDragDrop1DragEnter(Sender: TObject; aDataObj: IDataObject; grfKeyState: Integer; pt: TPoint; var dwEffect: Integer; var feFormat: tagFORMATETC); begin end; 而 Delphi 顯示 「IDataObject」與 「tagFORMATETC」未定義
系統時間:2024-07-04 23:41:33
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!