尝试使用与旧VCL相同的方法，TTreeNode.好的，没有TTreeNode，也没有方法将treenodes添加到树中，相反，我必须手动创建TTreeViewItem实例并将其parent属性设置为TTreeView实例。现在，TTreeViewItem具有数据属性，但类型为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;
TFmxObject.SetData方法是空的虚拟存根，必须在子孙类中将其重写。您不能使用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;
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句