如何在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;