모든 TTreeView 노드를 자동으로 확장하는 방법은 무엇입니까?

Question

응용 프로그램이 시작될 때 주 양식에서 트리를 확장하고 싶습니다. 어떻게 할 수 있습니까? 해당 속성을 찾을 수 없습니다. C++ 빌더 2009 년

Answer 1

트리보기에서 FullExpand()으로 전화하면됩니다.

Answer 2

TreeNode를 당신이의 TreeNode 개체의 속성을 발견 할 것이다 진정한

에 확장 된 특성을 추가, 그것은 요 진정한 전에 노드 목록에 추가 설정합니다.

또한 당신은 ExpandAll라는 트 리뷰하는 방법을 찾을 수 있습니다

내 안부

---

참조 http://www.delphipages.com/forum/showthread.php?t=159148

를이 코드

//this will expand all nodes of Level and their parents 
procedure ExpandTree(Tree: TTreeView; Level: integer); 

    procedure ExpandParents(Node: TTreeNode); 
    var 
    aNode : TTreeNode; 
    begin 
    aNode := Node.Parent; 
    while aNode <> nil do begin 
     if not aNode.Expanded then 
     aNode.Expand(false); 
     aNode := aNode.Parent; 
    end; 
    end; 

var 
    aNode : TTreeNode; 
begin 
    if Tree.Items.Count > 0 then begin 
    aNode := Tree.Items[0]; 

    while aNode <> nil do begin 
     if aNode.Level = Level then begin 
     aNode.Expand(false); 
     ExpandParents(aNode); 
     end; 
     aNode := aNode.GetNext; 
    end; 
    end; 
end; 

//this will expand the Node and it's parents 
procedure ExpandNode(Node: TTreeNode); 
var 
    aNode : TTreeNode; 
begin 
    Node.Expand(false); 

    aNode := Node.Parent; 
    while aNode <> nil do begin 
    if not aNode.Expanded then 
     aNode.Expand(false); 
    aNode := aNode.Parent; 
    end; 
end; 

을 시도하고 참조 내 감사합니다

Answer 3

이렇게하는 방법에는 여러 가지가 있습니다. 가장 쉬운 방법은 허용 대답 같이

TreeView1.FullExpand; 

을 것 - 또는

if TreeView1.items.GetFirstNode <> nil then 
    TreeView1.items.GetFirstNode.Expand(True); 

또는

if TreeView1.items[0] <> nil then 
    TreeView1.items[0].Expand(True); 

다음은 완전히 특정에서 확장하려는 경우 TTreeNode에 방법이 유용 확장 루트 노드가 아닌 노드.