treeview只展开一个同级节点

procedure TFormCustomerPage.cxTreeView1Expanded(Sender: TObject;
  Node: TTreeNode);
var
  ANode: TTreeNode;
begin
  inherited;
  ANode := Node.Parent;
  if ANode = nil then
    ANode := TTreeView(Sender).Items[0];
  if ANode <> nil then
  begin
    TTreeView(Sender).Items.BeginUpdate;
    try
      if ANode = Node.Parent then
           ANode := ANode.getFirstChild;
      while ANode <> nil do
      begin
        if ANode <> Node then
          ANode.Collapse(True);
        ANode := ANode.getNextSibling;
      end;
    finally
      TTreeView(Sender).Items.EndUpdate;
    end;
  end;
end;

转载于:https://www.cnblogs.com/fyen/archive/2011/05/18/2050520.html