rt thanks!

解决方案 »

  1.   

    先(最好在设计时)
    tv_1.autoExpand:=true;
    然后
    currnode.Selected:=true;
    如:
    var
       itemcount:integer;
       currnode:ttreenode;
    begin
       itemcount:=tv_1.Items.Count;
       currnode:=tv_1.Items[0];
       for j:=1 to itemcount do
       begin
         if currnode.text=你要展开节点.text then
         begin
            currnode.Selected:=true;
            break;
         end;
         currnode:=currnode.GetNext;
       end;
    end;
      

  2.   

    谢谢楼上的解答。上面的方法有点绕了,且只用单一展开。
    刚找了一下。
    直接设置节点的 Expanded为真就可以了。