Delphi, DevExpress, примеры, решения

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;

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
  ANode: TcxTreeListNode;
begin
  for I := 0 to cxDBTreeList1.AbsoluteCount - 1 do
  begin
    ANode := cxDBTreeList1.AbsoluteItems[I];
    if ANode.Values[cxDBTreeList1FilterColumn.ItemIndex] = 2 then
      ANode.Visible := false;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to cxDBTreeList1.AbsoluteCount - 1 do
    cxDBTreeList1.AbsoluteItems[I].Visible := true;
end;

procedure TForm1.cxButton1Click(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to cxDBTreeList1.AbsoluteCount - 1 do
  begin
    if cxDBTreeList1.AbsoluteItems[I].HasChildren and (cxDBTreeList1.AbsoluteItems[I].CheckState = cbsChecked) then
      ShowMessage(VarToStr(cxDBTreeList1.AbsoluteItems[I].Values[0]));
  end;
end; 

  vNode := TcxDBTreeListNode(tree.Root);

  while vNode <> nil do
    begin
      if vNode.CheckState = cbsChecked then
        id := VarToStr(vNode.KeyValue)


      vNode := TcxDBTreeListNode(vNode.GetNext);
    end;

Var
 v: variant;
begin
  v := <TcxDBTreeList>.FocusedNode.Values[<TcxDBTreeListColumn>.ItemIndex];

if <TcxTreeList>.DataController.LocateByKey(<значение ключевого поля>) then
  begin
    <TcxTreeList>.FocusedNode := <TcxTreeList>.FindNodeByKeyValue(<значение ключевого поля>);
    if <TcxTreeList>.FocusedNode <> nil then <TcxTreeList>.FocusedNode.MakeVisible;
...
...