TcxTreeList - цикл по выделенным узлам
Как пройтись циклом по выделенным узлам TcxDBTreeList?
var I, d: Integer; begin for I := 0 to pred(dbTree.SelectionCount) do d := TcxDBTreeListNode(dbTree.Selections[i]).KeyValue;
procedure TForm1.Button1Click(Sender: TObject); var ANode: TcxTreeListNode; begin cxTreeList1.BeginUpdate; ANode := cxTreeList1.Root.getFirstChild; while ANode <> nil do begin if ANode.Values[cxTreeList1Column1.ItemIndex] = 'Value 2' then ANode.Values[cxTreeList1Column2.ItemIndex] := 'Value 5'; ANode := ANode.GetNext; end; cxTreeList1.EndUpdate; end;