[태그:] TcxTreeList
TcxTreeList의 추가 삭제 부분입니다.
Published Date: 2014년 5월 21일
TcxTreeList의 추가 삭제 부분입니다.
Delphi/Pascal
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 |
procedure TForm1.버튼_추가Click(Sender: TObject); Procedure 추가( N : TcxTreeListNode ); begin With N.AddChild do begin Values[ cxTreeList1Column1.ItemIndex ] := N.AbsoluteIndex; Values[ cxTreeList1Column2.ItemIndex ] := cxTextEdit1.Text; end; N.root.Expand( True ); end; begin if cxTreeList1.AbsoluteCount > 0 then begin if Assigned( cxTreeList1.FocusedNode ) then 추가( cxTreeList1.FocusedNode ) else 추가( cxTreeList1.Root ); end else begin 추가( cxTreeList1.Root ); end; // cxTreeList1.FullExpand; end; procedure TForm1.버튼_삭제Click(Sender: TObject); begin if Assigned( cxTreeList1.FocusedNode ) then cxTreeList1.FocusedNode.Delete end; |
참고만 하시길..
cxTreeList에서 노드를 검색한후에 하위(Child)의 내용을 검사한다.
Published Date: 2012년 6월 13일
cxTreeList에서 노드를 검색한후에 하위(Child)의 내용을 검사한다.
Delphi/Pascal
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 |
procedure TForm1.Button1Click(Sender: TObject); var I: Integer; 노드, 노드2 : TcxTreeListNode; begin for I := 0 to cxTreeList1.AbsoluteCount - 1 do begin if cxTreeList1.AbsoluteItems[i].Values[0] = '작업1' then begin 노드 := cxTreeList1.AbsoluteItems[i]; Break; end; end; 노드2 := 노드.getFirstChild; while 노드2 <> nil do begin if 노드2.Values[0] = '2' then Break; 노드2 := 노드.GetNextChild( 노드2 ); end; if 노드2 <> nil then 노드.AddChild; end; |
최신 댓글