добавлено: 07 май 15
понравилось:0
просмотров: 2173
комментов: 1
теги:
понравилось:0
просмотров: 2173
комментов: 1
теги:
Автор: X11
Как пройтись циклом по выделенным узлам 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;
Комментарии
и здесь ещё
https://www.sql.ru/forum/1003313/cikl-po-derevu-tcxdbtreelist