델파이 퀀텀트리리스트 TcxDbTreeList 멀티셀렉트 데이터 키값가져오기

델파이 퀀텀트리리스트 TcxDbTreeList 멀티셀렉트 데이터 키값가져오기

 

 

 

procedure TForm1.Button1Click(Sender: TObject); 
  Var i: integer; 
begin 
  for I := 0 to cxDBTreeList1.SelectionCount - 1 do 
    Memo1.lines.add(TcxDBTreeListNode(cxDBTreeList1.Selections[i]).KeyValue);
end;

procedure TForm1.Button1Click(Sender: TObject);
  Var i: integer;
begin
  cxDBTreeList1.DataController.BeginUpdate;

  try
    for I := 0 to cxDBTreeList1.SelectionCount - 1 do     
      Memo1.lines.add(TcxDBTreeListNode(cxDBTreeList1.Selections[i]).KeyValue);
  finally
    cxDBTreeList1.DataController.EndUpdate;
  end;
end;