如何使用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;