Работа с `TTreeView` и `TValue` в FireMonkey: Решение типичных проблем

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

Работа с TTreeView и TValue в FireMonkey: Решение типичных проблем

FireMonkey (FMX) представляет собой современный набор компонентов для разработки кросс-платформенных приложений на языке Object Pascal. Одним из ключевых компонентов, который используется для отображения иерархической структуры данных, является TTreeView. В FMX TTreeView работает несколько иначе, чем в классическом VCL, что может вызывать затруднения у разработчиков, привыкших к старому интерфейсу.

Проблема с TValue в TTreeViewItem

В FMX нет прямого аналога TTreeNode из VCL. Вместо этого для добавления элементов в TTreeView необходимо создавать экземпляры TTreeViewItem и устанавливать их свойство Parent в TTreeView. Свойство Data в TTreeViewItem имеет тип TValue, который может вызывать затруднения при работе с объектами.

Пример кода

type
  TMaster = class(TDevice)
  // Определение класса TMaster
  end;
...
mstitem := TTreeViewItem.Create(nil);
mstitem.Parent := TreeView1;
mstitem.Data := TValue.From<TMaster>(TMaster.Create(i, 'master' + IntToStr(i)));
...
procedure TForm1.TreeView1Click(Sender: TObject);
var
  obj: TObject;
begin
  selectedNode := TreeView1.Selected;
  obj := selectedNode.Data.AsObject<TMaster>; // Приведение типа к TMaster
  if Assigned(obj) then
    ShowMessage(TMaster(obj).DevName);
end;

Альтернативный способ работы с TValue

Попытка напрямую привести Data к нужному типу может быть некорректной. Важно понимать, что Data фактически содержит текстовое представление элемента, а не ссылку на объект.

Подтвержденное решение

Для корректной работы с данными в TTreeView необходимо создать собственный класс-потомок TTreeViewItem, который будет содержать логику работы с данными.

TMyTreeViewItem = class(TTreeViewItem)
private
  FData: TValue;
protected
  function GetData: TValue; override;
  procedure SetData(const Value: TValue); override;
end;

function TMyTreeViewItem.GetData: TValue;
begin
  Result := FData;
end;

procedure TMyTreeViewItem.SetData(const Value: TValue);
begin
  FData := Value;
end;

Используя этот подход, вы можете удобно работать с объектами, сохраняя их ссылки в свойстве FData вашего класса TMyTreeViewItem.

Комментарий

При создании подкласса TTreeViewItem, рекомендуется добавить свойство, специфичное для типа данных, который вы планируете хранить. Обратите внимание, что свойство Data в TTreeViewItem фактически связано со свойством Text, а не Name, как могло бы показаться на первый взгляд.

В данной статье мы рассмотрели проблему работы с TValue в контексте TTreeView в FireMonkey, а также предложили решение, которое позволит разработчикам избегать типичных ошибок при использовании этих компонентов. Приведенные примеры кода на Object Pascal демонстрируют, как можно эффективно работать с данными в иерархической структуре, представленной TTreeView.

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

В статье рассматриваются проблемы и решения для работы с компонентом `TTreeView` и типом данных `TValue` в фреймворке FireMonkey для разработки кросс-платформенных приложений на языке Object Pascal.

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

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

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