TreeView常用操作 [不断添加]

//添加数据

var
T, T1, T2: TTreeNode;
begin
T:= TreeView.Items.AddChildFirst(nil, '第一层文字');
T1:= TreeView.Items.AddChild(T, '第二层文字');
T2:= TreeView.Items.AddChild(T1, '第三层文字');
T3:= TreeView..Items.AddChild(T2, '第四层文字');
...........
以此类推
end;

//获得当前选中的内容
TreeView.Selected.Parent.Text       //选中的父层内容
TreeView.Selected.Text         //选中的内容