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.