Настройка отображения узлов в элементе управления TreeView в Delphi: раскрытие только второго уровня

Delphi , Компоненты и Классы , TTreeView

Вопрос, который часто возникает при работе с элементом управления TreeView в среде разработки Delphi, заключается в необходимости раскрыть только узлы второго уровня, оставляя при этом закрытыми узлы третьего уровня и ниже. В данной статье мы рассмотрим, как можно решить эту задачу.

Описание проблемы

Представим, что у нас есть структура узлов в TreeView, которая выглядит следующим образом:

- link 1
  -- link 1.1
     --- link 1.1.1 (только этот узел раскрыт)
     ---- link 1.1.1.1 (закрыт)
  -- link 1.2
     --- link 1.2.1 (только этот узел раскрыт)
     ---- link 1.2.1.1 (закрыт)

Задача состоит в том, чтобы раскрыть только узлы второго уровня (link 1.1 и link 1.2), не затрагивая узлы третьего уровня.

Решение проблемы

Для решения этой задачи необходимо использовать метод Expand для всех узлов второго уровня. Важно также раскрыть и узлы первого уровня, чтобы узлы второго уровня были доступны для раскрытия. Параметр Recurse метода Expand должен быть установлен в False, чтобы не происходило дальнейшего раскрытия узлов.

Пример кода

procedure ExpandTreeNodes(Nodes: TTreeNodes; Level: Integer);
var
  Node: TTreeNode;
begin
  Nodes.BeginUpdate;
  try
    Node := Nodes.GetFirstNode;
    while Node <> nil do
    begin
      if Node.Level < Level then
        Node.Expand(False);
      Node := Node.GetNext;
    end;
  finally
    Nodes.EndUpdate;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ExpandTreeNodes(TreeView1.Items, 2);
end;

Этот код пройдёт по всем узлам TreeView и раскроет только те, уровень которых меньше указанного (в данном случае 2).

Альтернативный подход

Есть более эффективный способ обхода узлов, который позволит избежать лишних вызовов свойства Items и упростит код:

procedure ExpandTreeNodes(Nodes: TTreeNodes; Level: Integer);
var
  Node: TTreeNode;
  Next: TTreeNode;
begin
  if Level < 1 then
    Exit;
  Nodes.BeginUpdate;
  try
    Node := Nodes.GetFirstNode;
    while Node <> nil do
    begin
      if Node.Level < Level then
        Node.Expand(False);
      if (Node.Level < Level - 1) and Node.HasChildren then
        Node := Node.GetFirstChild
      else
      begin
        Next := Node.GetNextSibling;
        if Next <> nil then
          Node := Next
        else
          if Node.Level > 0 then
            Node := Node.Parent.GetNextSibling
          else
            Node := Node.GetNextSibling;
      end;
    end;
  finally
    Nodes.EndUpdate;
  end;
end;

В этом коде мы используем более сложную логику перемещения по узлам дерева, которая позволяет не заходить в поддеревья, если уровень узла меньше заданного (уровень 2 - в данном примере).

Заключение

Таким образом, используя метод Expand и правильно организовав обход узлов TreeView, можно добиться раскрытия только узлов второго уровня и оставления закрытыми узлов третьего уровня и ниже. Это позволит улучшить пользовательский интерфейс и ускорить работу с большими и глубокими структурами данных.

Создано по материалам из источника по ссылке.

Пользователь запросил описание контекста, связанного с настройкой отображения узлов в элементе управления TreeView в Delphi, с целью раскрытия только узлов второго уровня.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: TTreeView ::