procedure TFrmTreeView.TreeView_load; //初始化 树型结构
var
Node : TTreeNode;
//Kehu:String;
begin
//初始化 树型结构
TreeView1.Items.Clear;
TreeView1.ReadOnly:=true; //设置 只读 模式
Node :=TreeView1.Items.Add(nil,'系统设置');
TreeView1.Items.AddChild(Node ,'基础设置');
TreeView1.Items.AddChild(Node ,'高级设置');
Node :=TreeView1.Items.Add(Node.parent,'界面设置');
TreeView1.Items.AddChild(Node ,'b2');
Node :=TreeView1.Items.Add(nil,'系统帮助说明');
TreeView1.Items.AddChild(Node ,'c2');
Node :=TreeView1.Items.Add(nil,'版本信息');
TreeView1.Items.AddChild(Node ,'f2');
Node :=TreeView1.Items.Add(nil,'d')
//设置 图标 ImageIndex:=1
TreeView1.FullExpand;//展开整个树
//设置只读
TreeView1.ReadOnly:=true;
end;
//响应事件
TreeView1Change
if ((Node.Text='系统设置') or (Node.Text='基础设置')) then
begin
ListView1.Clear ;
ListView1.Visible:=false; //关闭
//写入Node节点事件代码
end;
if Node.Text='高级设置' then
begin
ListView1.Clear ;
ListView1.Visible:=false; //关闭
//写入Node节点事件代码
end;
