1

我有一个 tcxtreelist 有人知道如何获取所有已检查的节点吗？

我需要通过我的 tcxtreelist 从 tcxtreelist 中获取某个值并将其写入以逗号分隔的字符串

任何人都可以帮助我吗？

谢谢亲切的问候

4

1 回答 1

2

假设您有cxTreeList3 列colChecked、colYear和colMonth。

如果您进入colCheckedIDE，您可以将其Properties属性设置为， CheckBox并在运行时将其用作复选框。

如何获取Checked给定树节点中的值实际上非常简单。如果您声明一个变量Node : TcxTreeList node，您可以将它分配给树中的任何节点，如

Node := cxTreeList1.Items[i];

完成此操作后，您可以通过访问节点的Values属性来获取节点三列中的值，该属性是从零开始的变量数组，表示存储在节点中并显示在树中的值。所以，你可以写

var
  Node : TcxTreeListNode;
  Checked : Boolean;
  Year : Integer;
  Month : Integer;

begin
  Node := cxTreeList1.Items[i];
  Checked := Node.Values[0];
  Year := Node.Values[1];
  Month := Node.Values[2];
end;

当然，您可以Values通过相反方向的分配设置节点（但不要尝试使用 db-aware 版本 TcxDBTreeList，因为显示的值由与其连接的数据集字段的内容决定）。

没有必要使用Node局部变量，我只是为了清楚起见。你可以很容易（但不是很清楚）写

  Checked := cxTreeList1.Items[i].Values[0]

下面是一些示例代码，它设置了一个带有复选框列的 cxTreeList，用行填充它，并生成选中了复选框的行列表：

uses
  [...]cxTLData, cxDBTL, cxInplaceContainer, cxTextEdit,
  cxCheckBox, cxDropDownEdit;

type
  TForm1 = class(TForm)
    cxTreeList1: TcxTreeList;
    Memo1: TMemo;
    btnGetCheckedValues: TButton;
    procedure btnGetCheckedValuesClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
  protected
    colChecked : TcxTreeListColumn;
    colYear : TcxTreeListColumn;
    colMonth : TcxTreeListColumn;
  public
    procedure GetCheckedValues;
  end;

[...]
procedure TForm1.FormCreate(Sender: TObject);
var
  i : Integer;
  Year,
  Month : Integer;
  YearNode,
  MonthNode : TcxTreeListNode;
begin
  cxTreeList1.BeginUpdate;
  try
    //  Set up the cxTreeList's columns
    colChecked := cxTreeList1.CreateColumn(Nil);
    colChecked.Caption.Text := 'Checked';
    colChecked.PropertiesClassName := 'TcxCheckBoxProperties';

    colYear := cxTreeList1.CreateColumn(Nil);
    colYear.Caption.Text := 'Year';

    colMonth := cxTreeList1.CreateColumn(Nil);
    colMonth.Caption.Text := 'Month';

    //  Set up the top level (Year) and next level (Month) nodes
    for Year := 2012 to 2016 do begin
      YearNode := cxTreeList1.Root.AddChild;
      YearNode.Values[0] := Odd(Year);
      YearNode.Values[1] := Year;
      for Month := 1 to 12 do begin
        MonthNode := YearNode.AddChild;
        MonthNode.Values[0] := False;
        MonthNode.Values[1] := Year;
        MonthNode.Values[2] := Month;
      end;
    end;

  finally
    cxTreeList1.FullExpand;
    cxTreeList1.EndUpdate;
  end;
end;

procedure TForm1.GetCheckedValues;
var
  i : Integer;
  Node : TcxTreeListNode;
  S : String;
begin
  for i := 0 to cxTreeList1.Count - 1 do begin
    Node := cxTreeList1.Items[i];
    if Node.Values[0] then begin
      S := Format('Item: %d, col0: %s col1: %s col2: %s', [i, Node.Values[0], Node.Values[1], Node.Values[2]]);
      Memo1.Lines.Add(S);
    end;
  end;
end;

procedure TForm1.btnGetCheckedValuesClick(Sender: TObject);
begin
  GetCheckedValues;
end;
于 2016-12-17T12:21:10.333 回答