如何使用ShellTreeView / ShellListView中的文件名或文件夹名称的完整路径

Question

爵士 我创建了一个项目，我使用 ShellTreeView ， ShellListView ， ListView 。现在我从ShellTreeView拖动文件夹，从ShellListView拖动文件。现在我想检索文件名，包括完整路径（如：c：\ abc \ file.txt）或文件夹（如C：\ abc）。 为了检索路径，我使用命令按钮和文本框。 代码是什么？

开发

Answer 1

您可以使用TShellListView.SelectedFolder和TShellTreeView.Path属性来检索所选的路径和文件名。

此示例使用onchange事件并将路径分配给EditText。

procedure TForm1.ShellListView1Change(Sender: TObject; Item: TListItem;
  Change: TItemChange);
begin
  Edit2.Text := ShellListView1.SelectedFolder.PathName;
end;

procedure TForm1.ShellTreeView1Change(Sender: TObject; Node: TTreeNode);
begin
 Edit1.Text:= ShellTreeView1.Path;
end;