//获取 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.
//获取 TreeView选中的文件路径
