delphi 获取 TreeView选中的文件路径

 

//获取 TreeView选中的文件路径
 
unit
Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils,
Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,
ComCtrls;
 
type
  TForm1 = class(TForm)
    TreeView1:
TTreeView;
    ListView1:
TListView;
    RichEdit1:
TRichEdit;
    procedure TreeView1Click(Sender:
TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R
*.dfm}
//------------------------------------------------------------------------------
function Get_node_path(node: TTreenode): string;
var
  path: string;
  TreeNode: ttreenode;
begin
  path := node.text;
  TreeNode := node.parent;
  while TreeNode <>
nil do
  begin
    path := TreeNode.text + '\' +
path;
    TreeNode :=
TreeNode.parent;
  end;
  Result := path;
end;
//------------------------------------------------------------------------------
procedure TForm1.TreeView1Click(Sender:
TObject);
var
    node:TTreeNode;
begin
    node:=TreeView1.Selected;
    Caption:=Get_node_path(Node);
end;
 
 
 
end.

来自为知笔记(Wiz)

附件列表