1

嗨,正如标题所说,我想知道我应该使用什么代码以及如何设置我的程序,以便当我将文件拖到面板或主窗体上时,它会给我该文件夹的文件路径。

请帮忙。

4

1 回答 1

2

就这么简单:

  • 在主窗体上放置一个 TDropTarget 组件。
  • 设置过滤器属性。用 * 代替. 如果您希望它接受文件夹和文件。
  • 在 OnDropped 事件中,完全限定文件和/或文件夹名称的列表位于 Data.Files 中。你应该能够从那里得到你需要的一切。

这是您要完成的任务,还是您有其他想法?

更新:

根据要求,添加了一个示例,该示例显示了已删除的第一个文件的名称。

procedure TForm1.DropTarget1Dropped(Sender: TObject; const Data: TDragObject;
  const Point: TPointF);
begin
  ShowMessage(Data.Files[0]);
end;
于 2013-03-09T18:20:14.923 回答