Работа с событиями `OnAddition` в `TTreeView`: расширение функционала узлов без изменения текста

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

Работа с событиями OnAddition в TTreeView: расширение функционала узлов без изменения текста

Работа с компонентом TTreeView в среде разработки Delphi может быть довольно удобной и гибкой. Одним из ключевых моментов является возможность добавления дополнительных событий и свойств для узлов без модификации основного текста узла. В данной статье мы рассмотрим, как можно использовать событие OnAddition для реализации дополнительных функций, связанных с создания узлов дерева, а также предложим альтернативное решение для более сложных задач, включая хранение и загрузку дополнительных свойств узлов.

Базовая реализация через событие OnAddition

Событие OnAddition позволяет выполнять действия сразу после добавления узла в дерево. Пример кода для обработки данного события:

procedure TForm1.TreeView1Addition(Sender: TObject; Node: TTreeNode);
begin
  Caption := 'Added ' + Node.Text + ', child count: ' + IntToStr(Node.Count);
  if Node.Parent <> Nil then
    Node.Text := Node.Text + ', child of ' + Node.Parent.Text;
end;

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

Альтернативный ответ: использование TVirtualStringTree

Для более глубокой кастомизации и расширения функциональности узлов TTreeView можно использовать компонент TVirtualStringTree, который позволяет полностью определять структуру данных узла:

// Пример использования TVirtualStringTree для создания нового типа узла
type
  TMyTreeNode = class(TVirtualStringTree.TCustomTreeNode<TMyTreeItem>)
  end;

type
  TMyTreeItem = record
    Caption: string;
    CustomData: Integer; // Ваше дополнительное свойство
  end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  // Настройка компонента TVirtualStringTree
  TreeView1 := TVirtualStringTree.Create(Self);
  TreeView1.OptionsColumn = False;
  TreeView1.ParentNode = TreeView1.RootNode;
  TreeView1.ChildType = TypeInfo(TMyTreeNode).TTreeNodeType;
  TreeView1.OptionsShowTreeLine = False;
  TreeView1.OptionsShowButtons = False;
  TreeView1.OptionsShowHeader = False;
  TreeView1.OptionsShowRoot = False;
  TreeView1.DefaultRect := Rect(0, 0, 200, 200);

  // Дополнительные действия при необходимости
end;

// Добавление узла с дополнительными свойствами
var
  Node: TMyTreeNode;
begin
  Node := TMyTreeNode.Create(nil, TMyTreeItem.Create('Имя узла', 0));
  Node.Parent := TreeView1.RootNode;
  TreeView1.AppendNode(Node);
end;

Работа с дополнительными свойствами узлов

Для сохранения дополнительных свойств узлов без изменения их текста можно использовать наследование от TTreeNode и добавление новых свойств:

type
  TMyTreeNode = class(TTreeNode)
  public
    FCustomData: Integer; // Ваше дополнительное свойство
  end;

И затем, в обработчике события создания класса узла:

procedure TForm1.TreeView1CreateNodeClass(Sender: TCustomTreeView; var NodeClass: TTreeNodeClass);
begin
  NodeClass := TMyTreeNode;
end;

При добавлении узла или для получения значений дополнительных свойств узла, используется приведение типов:

var
  Node: TTreeNode;
begin
  Node := TreeView1.Items.Add(nil, 'Имя узла');
  TMyTreeNode(Node).FCustomData := ...; // Задаем значение дополнительного свойства

  // Для получения данных узла
  TMyTreeNode(TreeView1.Items.Item[0]).FCustomData; // Получаем значение свойства
end;

Сохранение и загрузка дерева с дополнительными свойствами

Для сохранения и загрузки дерева с дополнительными свойствами узлов потребуется реализовать ручное сохранение и загрузку, так как стандартные методы SaveTo... и LoadFrom... не поддерживают сохранение пользовательских свойств узлов. Это может быть реализовано, например, через сериализацию или сохранение данных в отдельном файле.

Заключение

В данной статье мы рассмотрели основные подходы к работе с событиями OnAddition компонента TTreeView и предложили альтернативные решения для создания и расширения функционала узлов дерева без изменения текста основного содержания узла. Использование компонента TVirtualStringTree и наследование от TTreeNode позволяет достичь высокой степени кастомизации и гибкости в работе с узлами дерева.

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

Работа с событиями `OnAddition` в `TTreeView` позволяет расширять функционал узлов без изменения их текстового содержимого.

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

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

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