TreeView问题

Question

如果实现自动展开？
比如
FOR Il=0 TO TREEVIEW1。ITEMS。COUNT-1 THEN
 IF TREEVIEW1。ITEMS。ITEM[I]。TEXT=‘B’THEN
begin   
 自动展开。光标也定位到这个位置上。
end;
要怎么做呢？

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  i : Integer;
begin
  //显示焦点
  TreeView1.HideSelection := False;
  for i := 0 to TreeView1.Items.Count - 1 do
    begin
      if TreeView1.Items.Item[i].Text = 'B' then
        begin
          //自动展开
          TreeView1.Items.Item[i].Expanded := True;
          //焦点定位
          TreeView1.Items.Item[i].Focused := True;
        end;
    end;
end;

Answer 2

With qryModalClass do
    begin
        Close;
        Open;
    end;
    if not qryModalClass.IsEmpty then
    begin
        qryModalClass.First;
        for I:=0 to qryModalClass.RecordCount-1 do
        begin
            oNode:=TV.Items[0].AddChild;
            oNode.Strings[0]:=qryModalClassID.Asstring+' '+qryModalClassName.Asstring;
            oNode.ImageIndex:=0;
            oNode.StateIndex:=0;
            With qryGetComponent do
            begin
                Close;
                Params[0].Value:=qryModalClassID.Value;
                Open;
                if IsEmpty then
                begin
                    qryModalClass.Next;
                    Continue;
                end;
                qryGetComponent.First;
                for N:=0 to RecordCount-1 do
                begin
                    oSubNode:=oNode.AddChild;
                    oSubNode.Strings[0]:=qryGetComponentCode.AsString;
                    oSubNode.Strings[1]:=qryGetComponentName.AsString;;
                    oSubNode.Strings[2]:=qryGetComponentFType.AsString;
                    oSubNode.Strings[3]:=qryGetComponentUnitName.AsString;
                    oSubNode.Strings[4]:=qryGetComponentWastage.AsString;
                    oSubNode.ImageIndex:=qryGetComponentID.Value;
                    oSubNode.StateIndex:=4;
                    qryGetComponent.Next;
                end;
            end;
            qryModalClass.Next;
        end;
    end;
    TV.Items[0].Expand(False);
    TV.EndUpdate;

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  i : Integer;
begin
  //显示焦点
  TreeView1.HideSelection := False;
  for i := 0 to TreeView1.Items.Count - 1 do
    begin
      if TreeView1.Items.Item[i].Text = 'B' then
        begin
          //自动展开
          treeview1.Items.Item[i].Parent.Expand(true);
          //焦点定位
           treeview1.Select(treeView1.Items.Item[i],[]);
        end;
    end;
end;