本文整理自网络，侵删。
//获取 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 leftstr 返回字符串左边指定个数的新字符(串)
Delphi adoquery连接数据库的查询、插入、删除、修改
Delphi http协议验证访问datasnap rest 服务器
Delphi fdconnection1 获取数据库总记录数
更多相关阅读请进入《Delphi》频道 >>
