请教，如何在TreeView控件中用代码来选中树中的某一项？

Question

我想在TreeView控件用程序来选择某一项比如：
树结构为：
T1
  T11
     T111
     T112
  T12
T2
我希望用代码来选定T112这一项，应如何写程序？

Answer 1

var
  i: integer;
  Node: TTreeNode;
begin
  TreeView1.HideSelection := False;
  for i := 0 to TreeView1.Items.Count - 1 do
  begin
    Node := TreeView1.Items.Item[i];
    if Node.Text = 'T112' then
    begin
      Node.Selected := true;
      Exit;
    end;
  end;
end;

Answer 2

同意楼上
若要显示选中，则加上TreeView1.SetFouce;

Answer 3

procedure FindTree(aNo: string);
    var
      i: Integer;
    begin
      for i := 0 to tvPer.Items.Count - 1 do
        if tvPer.Items[i].Text = aNo then
        begin
          tvPer.Items[i].Selected := true;
          tvPer.Setfocus;
          Break;
        end;
    end;

Answer 4

如果你知道在那一层就直接用treeview1.selected
比如
treeview1.selected:=treeview1.Items.Item[0];