delphi - Firemonkey TTreeView - 在 TTreeViewItems、TValue 中存储对象引用

Question

正在尝试与旧的 VCL TTreeNode 相同的方法。好吧，没有 TTreeNode 并且没有方法将树节点添加到树中，而是我必须手动创建 TTreeViewItem 实例并将其父属性设置为 TTreeView 实例。现在，TTreeViewItem 有一个 data 属性，但它的类型是 TValue。

如何处理这种类型？

我尝试了以下方法:

type
  TMaster = class(TDevice)
  ...
  end;

  ...
  mstitem := TTreeViewItem.create(self);
  mstitem.parent := TreeView1;
  mstitem.data := TMaster.Create(i, 'master'+ inttostr(i));
  ...

  procedure TForm1.TreeView1Click(Sender: TObject);
  var 
    obj: TObject;        
  begin
    selectednode := TTreeView1.Selected;
    obj := TDevice(selectednode.Data.AsObject); //Invalid typecast
    if obj is TDevice then
      showmessage( TDevice(obj).DevName );
  end;

Answer 1

TFmxObject.SetData 方法是空的虚拟 stub ，必须在后代类中重写。您不能按照使用方式使用 TreeViewItem.Data，因为 Data 实际上包含 TTreeViewItem.Name 属性。

您必须创建自己的后代 TTreeViewItem 类并使用它而不是默认的

  TMyTreeViewItem = class(TTreeViewItem)
  protected
    fData: TValue;
    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;