TcxTreeList 써보기 - 2

2017/08/01 - [ - Delphi] - [DevExpress] TreeList 써보기 - 1

node에 값을 추가합니다.

procedure AddNodeAndValue;
var
  node : TcxTreeListNode;
begin
  cxTreeList1.BeginUpdate;

  //한줄에 전부 다 넣기
  node := cxTreeList1.Root.AddChild; //Root에서 새로운 자식노드 추가
  //ex) Values[컬럼명.ItemIndex] := 값;
  node.Values[cxTreeList1Column1.ItemIndex] := 1;
  node.Values[cxTreeList1Column2.ItemIndex] := 'TeakHyun Kang';

  //노드에 자식노드 추가해서 넣기
  node := cxTreeList1.Root.AddChild; //노드 추가
  node.Values[cxTreeList1Column1.ItemIndex] := 2;
  
  with cxTreeList1.AddNode(nil, node, nil, tlamAddChild) do //현재 추가된 노드에서 자식노드 추가
  begin
    Values[cxTreeList1Column2.ItemIndex] := 'TeakHyun';
  end;

  node := cxTreeList1.Root.AddChild;
  node.Values[cxTreeList1Column1.ItemIndex] := 3;
  
  with cxTreeList1.AddNode(nil, node, nil, tlamAddChild) do
  begin
    Values[cxTreeList1Column2.ItemIndex] := 'Kang';
  end;

  cxTreeList1.EndUpdate;
  //※값을 추가할 때마다 자식노드를 생성해야 됩니다.
end;

실행화면