如何在delphi中獲取丟棄文件夾的文件路徑firemonkey2

Question

嗨，標題說我想知道我應該使用什麼代碼，以及如何設置我的程序，以便當我通過面板拖動文件時或主窗體， 它給了我該文件夾的文件路徑。

請幫忙。

Answer 1

它是如此簡單：

• 將一個TDropTarget組件的主要形式。
• 設置Filter屬性。把*而不是。如果您希望它接受文件夾以及文件。
• 在OnDropped事件中，完全限定文件和或文件夾名稱的列表位於Data.Files中。你應該能夠從那裏得到你需要的一切。

這是你想要完成的，還是你有其他想法？

更新：

根據要求，添加了顯示所放的第一個文件名的例子。

procedure TForm1.DropTarget1Dropped(Sender: TObject; const Data: TDragObject; 
    const Point: TPointF); 
begin 
    ShowMessage(Data.Files[0]); 
end;