本文整理自网络，侵删。
//获取 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.
相关阅读 >>
Delphi 获取网络图片在webbrowser显示 android/osx/ios/win的最佳方式
Delphi格式化函数format、formatdatetime和formatfloat
Delphi 标头控件（theadercontrol）中的显示复选框
更多相关阅读请进入《Delphi》频道 >>
