从TTreeNode派生时出现“无效的类类型转换”错误

时间:2018-04-16 12:48:50

标签: delphi

我正在尝试使用一些额外的字段扩展TTreeNode类,以用于我非常简单的程序。像这样:

TCustomTreeNode = class(TTreeNode)
private
  FPath : string;
  FParam : string;

  property Path: string read FPath write FPath;
  property Param : string read FParam write FParam;
end;

我告诉TTreeView使用我这样的课程:

procedure TMain.cxTreeView1CreateNodeClass(Sender: TCustomTreeView;
  var NodeClass: TTreeNodeClass);
begin
  NodeClass := TCustomTreeNode;
end;

然后我定义了一个节点数组,如下所示:

Nodes : array of TCustomTreeNode;

最后,我试图像这样填充数组:

Nodes[i] := cxTreeView1.Items.Add(nil, OuterRoot.ChildNodes[i].AttributeNodes.Nodes['Name'].Text) as TCustomTreeNode;

它引发了“无效类类型转换”异常。

我做错了什么?

0 个答案:

没有答案