[태그:] cxTreeList
cxTreeList에서 FocusedNode로 이동하기.
Published Date: 2014년 9월 18일
cxTreeList에서 Find류의 함수를 이용하여 노드를 찾은뒤에 FocusedNode를 이용하여 Focus를 이동합니다. 하지만, 여기서 문제는 포커스는 이동하지만, 화면은 바뀌지 않는다는 점입니다. 이떄 사용하는 것이 cxTreeList1.FocusedNode.MakeVisible 명령입니다. 이…
cxTreeList의 내용을 복사하기
Published Date: 2012년 5월 17일
cxTreeList의 내용을 복사하기 DBTreelist이든 일반이던 모든 내용을 복사 합니다.
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 35 36 |
var i,j : Integer; N : TcxTreeListNode; begin for I := 0 to aaaa.AbsoluteCount - 1 do begin if aaaa.AbsoluteItems[ i ].Parent = aaaa.AbsoluteItems[ i ].Root then begin with bbbb.AddNode( nil, nil, nil, tlamAddChild ) do begin values[0] := aaaa.AbsoluteItems[ i ].Values[0]; values[1] := aaaa.AbsoluteItems[ i ].Values[1]; values[2] := aaaa.AbsoluteItems[ i ].Values[3]; end; end else begin N := nil; for j := 0 to bbbb.AbsoluteCount - 1 do if bbbb.AbsoluteItems[j].Values[0] = aaaa.AbsoluteItems[ i ].Values[1] then begin N := bbbb.AbsoluteItems[j]; Break; end; with bbbb.AddNode( nil, N, nil, tlamAddChild ) do begin values[0] := aaaa.AbsoluteItems[ i ].Values[0]; values[1] := aaaa.AbsoluteItems[ i ].Values[1]; values[2] := aaaa.AbsoluteItems[ i ].Values[3]; end; end; end; |
최신 댓글