Delphi Prism：替换 TreeView AddchildObject 函数

Question

我正在将 win32 软件迁移到 .NET，目前正在使用 Delphi Prism 中的 TreeView 控件。到目前为止，我可以向 TreeView 添加父节点和子节点。但是，我想知道 Delphi Prism TreeView 是否有 AddchildObject 函数的替代品。如果没有，你会怎么做？

网上关于这方面的信息似乎很少。

Answer 1

我相信这个问题在这里的程序员朋友们可能无法回答，我觉得这对于任何使用Delphi Prism的程序员来说都是一个重要的问题。因此，我决定自己回答这个问题，而不是删除它，因为我在另一个 StackOverflow 问题中找到了答案。然而，我的问题和他们的问题不同，但需要相同的答案。

我编写了一个快速简单的 delphi prism 示例，以展示如何使用树视图以及如何在树视图节点中存储和检索对象。

这是我的 Treeview 示例

namespace TreeViewExample;

interface

uses
  System.Drawing,
  System.Collections,
  System.Collections.Generic,
  System.Windows.Forms,
  System.ComponentModel;

type
  /// <summary>
  /// Summary description for MainForm.
  /// </summary>
  MainForm = partial class(System.Windows.Forms.Form)
  private
    method MainForm_Load(sender: System.Object; e: System.EventArgs);
    method treeView1_Click(sender: System.Object; e: System.EventArgs);
  protected
    method Dispose(disposing: Boolean); override;
  public
    constructor;
  end;

  theclass = class
  thestr:String;
  public
  constructor;
  end;

implementation

{$REGION Construction and Disposition}
constructor MainForm;
begin
  //
  // Required for Windows Form Designer support
  //
  InitializeComponent();

  //
  // TODO: Add any constructor code after InitializeComponent call
  //
end;

method MainForm.Dispose(disposing: Boolean);
begin
  if disposing then begin
    if assigned(components) then
      components.Dispose();

    //
    // TODO: Add custom disposition code here
    //
  end;
  inherited Dispose(disposing);
end;
{$ENDREGION}

constructor theclass;
begin
  thestr:='Testing Treeview.';
end;

method MainForm.MainForm_Load(sender: System.Object; e: System.EventArgs);
var topnode:treenode;
    theObject:theclass;
begin
  theObject:=new theclass;
  treeview1.BeginUpdate;
  topnode:=treeview1.Nodes.Add('node1');
  topnode.Nodes.Add('no data node');
  topnode.Nodes.Add('data node').Tag := theObject;
  topnode.Expand;
  treeview1.EndUpdate;
end;

method MainForm.treeView1_Click(sender: System.Object; e: System.EventArgs);
begin
  if treeview1.SelectedNode.Text='data node' then
    MessageBox.Show(theClass(Treeview1.SelectedNode.Tag).thestr);
end;

end.

这是问题的链接。

在 C# 中使用树视图时将文本字段保存到数组（并从数组中提取数据）