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.