各位先進好：

我想製作一個小程式，類似使用Media Player聽音樂時，用滑鼠點選想聽的音樂，拖曳到現正播放清單就可以加入播放檔案的功能。

以下是我想做的程式說明：
當滑鼠將選取的檔案拖曳到程式中的Memo或者ListBox之類的元件後，元件上會顯示被滑鼠拖曳的檔案名稱以及檔案路徑(可能多個或一個)。

請教各位先進，我可以用winapi來取得滑鼠點選的檔名及路徑嗎?在發問前我已先翻過ktop的文章，但並沒有尋找到類似的討論主題，同樣我也上了Google、Yahoo的搜尋引擎尋找過，曾有找到關於Winapi函式與函式庫的說明，以及少許的範例，但多數都是VB語法寫的，且也沒有找到關於取得滑鼠選取檔名的函數，不知道我有沒有漏看，還請各位先進多多包含。
因為這是老師出的題目，懇請各位先進可以給予我一些建議或者方向。我想先學習可以取得被滑鼠選取檔名的方法，再將取得的檔名加入Memo上顯示，我想這樣的概念應該是正確的，如果有誤希望各位先進可以給予指教。
由於我學習Delphi的語法僅在課程上，學習也有一學年的時間了，但還不會使用Delphi呼叫Winapi函數，如果有推薦的書籍、參考網站也希望各位先進可以不吝告知，先謝過各位耐心看完這篇問題，感激！

頭一次發問還請多包涵。

------
學習在挫折中成長
學習在逆境中萌芽
學習在論壇找寶藏
學習在程式找樂趣
By Delphi實習中的 諼

就以Form來說，當你將物件拖到Form上就會產生DragOver的事件，
你只要在對應的事件裡面描述你要的行為就可以，相關的資訊會在事件傳入的參數就提供給你。

------
不論是否我發的文，在能力範圍皆很樂意為大家回答問題。
為了補我的能力不足之處，以及讓答案可以被重複的使用，希望大家能儘量以公開的方式問問題。
在引述到我的文時自然會儘量替各位想辦法，謝謝大家！

提供來源檔案資訊的VCL很多！最常用的就是 TShellTreeView或者是TFileListBox等，至於抓取來源檔案資訊的元件不管是MEMO或者是TListView等等都可以該VCL元件中偵測DRAGOVER事件發生時的來檔案源資訊是否是你需要的，以及在DRAGDROP事件記錄來源檔案的資訊，請參考～

謝謝兩位前輩指教

但是我想前輩誤會我的意思了。我的意思並非form本身的元件拖曳到form上的元件，而是我開啟我的程式，然後從檔案總管或者桌面，選擇我要的檔案，再由滑鼠拖曳到程式的form上面的元件(Memo)，所以我必須取得我滑鼠所拖曳的檔案名稱與路徑，顯示到程式的元件上面。

不知道這樣說明是否清楚了一些?
先謝過各位先進的指教了。

------
學習在挫折中成長
學習在逆境中萌芽
學習在論壇找寶藏
學習在程式找樂趣
By Delphi實習中的 諼

關鍵字 WM_DROPFILES

感激wameng版主的協助
我曉得搜尋的出發方向了，雖然還沒有試出可以使用的程式，不過大概知道往哪方面找資料了。感謝^^

------
學習在挫折中成長
學習在逆境中萌芽
學習在論壇找寶藏
學習在程式找樂趣
By Delphi實習中的 諼

procedure TEVScrollBox.WMDROPFILES(var Message:TMessage);
var
nFiles : Integer;
FileName : String;
begin
With Message do
try
nFiles := DragQueryFile (wParam, $FFFFFFFF, nil, 0);

SetLength(FileName, 80);
DragQueryFile(wParam,0, PChar(Filename), 80);
FileName := PChar(FileName); {Filter #0};

if Assigned(fMadeMapdata) then fMadeMapdata.LoadDataFromFile(FileName);
finally
DragFinish (wParam);
end;
end;

if Assigned... 換掉即可。

.

編輯記錄

===================引 用 wameng 文 章===================
procedure TEVScrollBox.WMDROPFILES(var Message:TMessage);
var
? nFiles : Integer;
? FileName : String;
begin
? With Message do
? try
??? nFiles := DragQueryFile (wParam, $FFFFFFFF, nil, 0);

??? SetLength(FileName, 80);
??? DragQueryFile(wParam,0, PChar(Filename), 80);
??? FileName := PChar(FileName); {Filter #0};

??? if Assigned(fMadeMapdata) then fMadeMapdata.LoadDataFromFile(FileName);
? finally
??? DragFinish (wParam);
? end;
end;

if Assigned... 換掉即可。


謝謝wameng
問題已經解決了~

(不好意思~上方那個是同學的帳號，忘了登出就回覆，這個才是我的帳號...^^")

------
學習在挫折中成長
學習在逆境中萌芽
學習在論壇找寶藏
學習在程式找樂趣
By Delphi實習中的 諼

編輯記錄