Управление чекбоксами в дереве: синхронизация состояния родительских и дочерних элементов в Delphi

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

Вопрос пользователя касается управления чекбоксами в компоненте TTreeView в среде разработки Delphi. Пользователь уже реализовал функционал переключения чекбоксов для узлов, но хочет добавить дополнительное поведение: при клике по чекбоксу родительского узла, все дочерние узлы должны быть сняты с выбора. Также пользователь интересуется более удобным способом динамического добавления узлов и установки состояния чекбоксов для всех дочерних элементов.

Решение

Для решения вопроса о синхронизации состояния чекбоксов можно использовать следующий подход:

1. При клике на чекбокс родительского узла, изменить состояние всех дочерних узлов на противоположное текущему состоянию родителя.
2. Для динамического добавления узлов и установки состояния чекбоксов можно использовать вспомогательные функции или классы, которые упростят процесс добавления новых узлов с заданным состоянием чекбокса.

Пример кода

procedure TForm5.SetTreeViewCheckState(Node: TTreeNode; StateIndex: Integer; Recursive: Boolean);
begin
  Node.StateIndex := StateIndex;
  if not Recursive then Exit;
  for I := 0 to Node.Count-1 do
    SetTreeViewCheckState(Node.Item[I], StateIndex, True);
end;

procedure TForm5.ToggleTreeViewCheckBoxes(Node: TTreeNode);
var
  I: Integer;
begin
  if Assigned(Node) then
  begin
    // Сохраняем текущее состояние чекбокса
    var IsChecked := (Node.StateIndex = cStateChecked);
    // Переключаем состояние чекбокса
    Node.StateIndex := (Node.StateIndex = cStateUnChecked);
    // Синхронизируем состояние дочерних узлов
    if Node.HasChildren then
      SetTreeViewCheckState(Node, Node.StateIndex, True);
    // Восстанавливаем состояние чекбоксов дочерних узлов, которые были зачекинены до переключения родителя
    if IsChecked then
    begin
      for I := 0 to Node.Count-1 do
        if Node.Item[I].StateIndex = cStateChecked then
          SetTreeViewCheckState(Node.Item[I], cStateChecked, False);
    end;
  end;
end;

Обновление кода формы

procedure TForm5.FormCreate(Sender: TObject);
var
  RootNode: TTreeNode;
  ParentNode: TTreeNode;
  i: Integer;
begin
  // Добавление корневых узлов
  for i := Low(aRootList) to High(aRootList) do
  begin
    RootNode := TreeView1.Items.Add(nil, aRootList[i]);
    // Добавление дочерних узлов с функцией, которая учитывает состояние родителя
    AddChildNodesWithParentState(RootNode, 'Parent 1');
    AddChildNodesWithParentState(RootNode, 'Parent 2');
  end;
end;

procedure TForm5.AddChildNodesWithParentState(AParentNode: TTreeNode; const ACaption: String);
begin
  ParentNode := AParentNode.AddChildWithState(ACaption, AParentNode.StateIndex);
  ParentNode.AddChildWithState('Child 1', AParentNode.StateIndex);
  ParentNode.AddChildWithState('Child 2', AParentNode.StateIndex);
end;

function TForm5.TreeView1GetHelper.AddChildWithState(const ACaption: string; AStateIndex: Integer = 1): TTreeNode;
begin
  Result := Self.TreeView.Items.AddChild(Self, ACaption);
  Result.StateIndex := AStateIndex;
  Result.OnClick := @ToggleTreeViewCheckBoxes;
end;

Обновление обработчика события клика

procedure TForm5.TreeView1Click(Sender: TObject);
var
  P: TPoint;
begin
  GetCursorPos(P);
  P := TreeView1.ScreenToClient(P);
  if (htOnStateIcon in TreeView1.GetHitTestInfoAt(P.X, P.Y)) then
    TreeView1.GetNodeAt(P.X, P.Y).ToggleTreeViewCheckBoxes;
end;

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

Заключение

Данный подход позволяет реализовать требуемое поведение чекбоксов в дереве: при клике по чекбоксу родительского узла, все дочерние узлы будут сняты с выбора или установлены в состояние чекбокса родителя, в зависимости от того, был ли он зачекинен до этого. При этом дочерние узлы, которые были зачекинены пользователем, сохраняют свое состояние после переключения родительского узла.

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

Управление чекбоксами в компоненте `TTreeView` в Delphi таким образом, что при выборе чекбокса родительского узла, все его дочерние узлы изменяют свое состояние на противоположное родительскому.

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

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

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