Как добавить пользовательское свойство к узлам дерева в TreeView и сохранять данные в свойстве "data" в Delphi

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

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

Как добавить пользовательское свойство к узлам дерева в TreeView

Для начала создадим класс, который будет наследовать от TTreeNode и добавит в него необходимое пользовательское свойство. Например, добавим свойства Name и Age.

type
  TMyTreeNode = class(TTreeNode)
  private
    FName: string;
    FAge: Integer;
  published
    property Name: string read FName write FName;
    property Age: Integer read FAge write FAge;
  end;

Далее, необходимо переопределить поведение компонента TTreeView для создания узлов с помощью нового класса TMyTreeNode. Это можно сделать с помощью события OnCreateNodeClass.

procedure TMyForm.OnCreate(Sender: TObject);
begin
  MyTreeView1.OnCreateNodeClass := OnCreateNodeClass;
end;

procedure TMyForm.OnCreateNodeClass(Sender: TCustomTreeView; var NodeClass: TTreeNodeClass);
begin
  NodeClass := TMyTreeNode;
end;

Теперь, когда узлы дерева создаются с использованием класса TMyTreeNode, можно задать им дополнительные свойства Name и Age.

procedure TMyForm.FormCreate(Sender: TObject);
begin
  with MyTreeView1.Items.AddChild(nil, 'Root') do
  begin
    Name := 'Root Node';
    Age := 0;
    with Items.AddChild(Self, 'Child 1') do
    begin
      Name := 'Child 1';
      Age := 10;
    end;
  end;
end;

Для работы с данными в дизайнере (design time) потребуется реализовать поддержку свойства Data для Items в компоненте TreeView через редакторы свойств для пользовательских типов данных.

Как сохранить и извлечь информацию через свойство "Data"

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

type
  TUserData = class
  private
    FName: string;
    FAge: Integer;
  public
    constructor Create(const AName, AAge: string);
    property Name: string read FName;
    property Age: Integer read FAge;
    // Добавьте другие методы для работы с данными
  end;

constructor TUserData.Create(const AName, AAge: string);
begin
  FName := AName;
  FAge := StrToIntDef(AAge, 0);
end;

При создании узла, назначаем экземпляр класса TUserData свойству Data узла:

with MyTreeView1.Items.AddChild(nil, 'Node') do
begin
  Data := TUserData.Create('Иван', '30');
end;

Чтобы извлечь информацию из свойства Data, достаточно получить ссылку на объект и обратиться к его свойствам:

var
  UserData: TUserData;
begin
  UserData := MyTreeView1.Selected.Data;
  if Assigned(UserData) then
  begin
    // Вы можете использовать информацию о пользователе
    ShowMessage('Имя: ' + UserData.Name + ', Возраст: ' + IntToStr(UserData.Age));
  end;
end;

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

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

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

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

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

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