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)

附件列表