请问，如何用代码使TreeView中的某一个Node展开？

Question

使用该节点的MakeVisible就行了.

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Assigned(TreeView1.Selected) then TreeView1.Selected.Expand(True);
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Assigned(TreeView1.Selected) then TreeView1.Selected.Expand(True);
end;

Answer 3

谢谢两位，我向TreeView中加了3层的Node,我想让第一层的第一个展开，其他的都不展开。两位的方法都不行。

Answer 4

//前提要在开头说 :)procedure TForm1.Button1Click(Sender: TObject);
begin
  if Assigned(TreeView1.Selected) then TreeView1.Selected.Expand(False);
end;

Answer 5

procedure TForm1.Button1Click(Sender: TObject);
begin
  Treeview1.Items.Item[0].Expanded :=true;
end;Item[i]，其中的i随你设。从上到下，从0到n-1(n为节点个数)；不区分根节点还是子节点。

Answer 6

同意oracle_lover(数据库情人) 的回答