delphi怎样实现单击treeview中的父节点，显示相应的子节点

[oa2008032220]

delphi怎样实现单击treeview中的父节点，显示相应的子节点
求高手！！！！

[bdmh]

var
  i:Integer;
begin
  for i := 0 to TreeView1.Selected.Count - 1 do
  begin
    ShowMessage(TreeView1.Selected.Item[i].Text);
  end;
end;

[sz0557it]

高手回复

[「已注销」]

//选中某个节点
TreeView1.Items[0].Selected := true;
//展开某个节点
TreeView1.Items[0].Expanded := true;

[程晨c]

TreeView1.Items[0].Expanded := true;

[delphi_11]

procedure TForm1.maketree;
var
Node : TTreeNode;

begin
with ADOQuery1 do
begin
Close;
sql.Clear;
sql.Add('select func_name,id from ok_function where parent_id=0');
Open;
end;
while not ADOQuery1.Eof do
begin
Node :=Tree.Items.Add(nil,ADOQuery1.FieldByName('func_name').AsString);
gridqry.Close;
gridqry.SQL.Clear;
gridqry.SQL.Add('select func_name from ok_function where parent_id='''+ADOQuery1.FieldByName('id').AsString+'''');
gridqry.Open;
while not gridqry.Eof do
begin
Tree.Items.Addchild(node,gridqry.FieldByName('func_name').AsString);
gridqry.Next;
end;
gridqry.Close;
ADOQuery1.Next;
end;
ADOQuery1.Close;
end;

[oa2008032220]

主要是先获得上级的名字，Node :=Tree.Items.Add(nil,ADOQuery1.FieldByName('func_name').AsString);

再执行一个循环，在循环中获得该名字下的子节点。

后它本身再循环，即显示其同级的其他名字。