关于设置新 TreeView 数据类型的建议

Question

我想要一些关于如何使用 TreeView 的 Node.Data 属性为 TreeView 设置新对象类的建议和/或提示。

我知道如何创建一个可以从 .Data 属性写入/读取的基本 Object 类型，我会这样做：

type
  TMyData = class(TComponent)
  private
    FString1: String;
    FString2: String;
    FInteger1: Integer;
  published
    property String1: String read FString1 write FString1;
    property String2: String read FString2 write FString2;
    property Integer1: Integer read FInteger1 write FInteger1;
  end;

将值写入 Node.Data 属性之一：

TMyData(TreeView1.Selected.Data).String1:= 'save this String';

读取值：

ShowMessage(TMyData(TreeView1.Selected.Data).String1);

这是将数据分配给树节点的一个非常基本的示例，现在这是我需要帮助和建议、提示等的地方...

从我上面的示例中，您可以轻松地读取/写入标准属性，例如字符串、整数、布尔值等。包含和读取/写入 TListBox 或 TListView 怎么样？

与其将标准数据写入树节点，不如将项目添加到该 TListView 并将该 TListView 的内容写入 TreeView 节点。

如果单击其中一个树节点时，它不会返回字符串，而是使用之前保存的项目和图像填充该 TListView。

(1) 这是您可以将节点添加到 TreeView 的主要形式。我实际上使用了一个更增强的功能来添加到我的 TreeView 中，如下所示：

function AddMyDataNode(ATreeView: TTreeView; NodeName: String; NodeImage: Integer;
    String1, String2: String; Integer1: Integer;
    SelectNode: Boolean): TTreeNode;
var
  Obj: TMyData;
  Node: TTreeNode;
begin
  Result:= nil;

  Obj:= TMyData.Create(nil);
  try
    Obj.String1:= String1;
    Obj.String2:= String2;
    Obj.Integer1:= Integer1;

    Node:= ATreeView.Items.AddObject(ATreeView.Selected, NodeName, Obj);
    Node.ImageIndex:= NodeImage;
    Node.SelectedIndex:= NodeImage;

    Result:= Node;

    if SelectNode then
      Node.Selected:= True;

    ATreeView.SetFocus;
  except on E: Exception do
    ShowMessage('Could not add MyData Node: ' + E.Message);
  end;
end;

编辑节点将显示另一个称为数据表单的表单...：

(2) 此数据表单是读取/写入来自主表单上的节点的数据的位置。添加了一个 TListView。 ListView 也应该使用标准属性读取/保存。

添加/编辑 ListView 项可能包括其他标准属性，例如：

(3) 此表单上的值保存到 ListView 数据中。

简而言之：

• TreeView Node.Data 存储 标准属性，也是一个 TListView。
• 此数据以另一种形式显示 称为数据表单。
• 数据表单上的 ListView 也 有数据。
• 在数据表单上编辑 ListView 将显示一个额外的表格 标准属性。

我想知道如何最好地解决这个问题，您可以提供哪些提示，实现此类目标的最简单方法是什么？

ListView 的写入/读取很容易实现，我想这可以通过访问ListView Items.Item[x].Data 属性来完成。让 ListView 数据与 TreeView 一起存储是问题所在，我不知道如何实现这种行为。

我想了解有关如何定义类型等方面的建议。

我期待听到您对此的想法。

Answer 1

我认为您的困惑是考虑存储 Visual Forms 和组件，包括它们的数据。我相信你可以用流媒体系统做到这一点——虽然我从来没有！我喜欢将数据和视觉效果尽可能分开。

因此，您需要一个自定义列表来放入 MyData，其中包含需要进入列表视图的所有数据和设置，例如 MyDataList：（我正在直接输入！）

type

TMyDataViewData = class(TPersistent)
  Caption: string;
  ImageIndex: Integer;
  StateIndex: Integer;
  Group: Integer;
  MemoData: TStrings;
end;

TMyDataViewDataList = class(TPersistent)
  TheList: TObjectList;
  property Items[Index:Integer]:MyDataViewData read getItems write SetItems;
  property Count: Integer read GetCount;
  . 
  .
  .
end;

  TMyData = class(TComponent)
  private
    FString1: String;
    FString2: String;
    FInteger1: Integer;
  private 
    MyForm: TMyEditform;
  published
    procedure Edit(Owner: TComponent);
    property String1: String read FString1 write FString1;
    property String2: String read FString2 write FString2;
    property Integer1: Integer read FInteger1 write FInteger1;
    property TheDataList: TMyDataViewDataList read fTheDataList write fTheDataList;  
end;

procedure TMyData.Edit;
var
  F: TMyEditForm;
begin
  F:= TMyEditForm.create(Owner);
  F.DataList := TheDatalist;  // data for listview and memos
  F.ShowModal;
  .
  .
  . 
end;

然后在你的 Treeview 中你只需要做：

  If TreeNode.Data is TMyData then
    TMyData(TreeNode.Data).Edit(Self);

编辑后用于更改树视图节点信息的所有数据都应该在 MyData 所以你可以做

  Node.Text := TMyData(Node.Data).TheDataList.Items[0].Caption;

或

for i := 0 to TMyData(Node.data).TheDataList.Count do
    Node.AddChild(TMyData(Node.Data).TheDataList.Items[i].Caption);

您还可以轻松地将 Datalist 的属性直接公开给 TMyData :)

之类的。那里可能有一些语法错误！

Answer 2

我认为您的方法没有任何问题。你可以让你的数据对象包含一个对象列表（我不知道你为什么从TComponent继承一个与可视组件无关的类）：

TMyData = class
private
  FString  : String;
  FInteger : Integer;
  FItems   : TList <TItem>   // where TItem is your custom object class
public
  // ... properties ...
end;

此列表随后显示在列表框中：

 for Item in MyData.Items do
   ListBox.Items.AddObject (Item.ToString, Item);

如果您编辑其中一个项目，您会做同样的事情：从列表框的数据中取出对象并将其传递给下一个表单。

希望对您有所帮助。