ListBox에 있는 내용을 TreeView로 보내어 보기 쉽게 정리하였습니다. 그런후 TreeView에서 선택한 내용을 TreeView 또는 ListBox에서 참조할려면 어떻게 해야하나요. (TreeView에서의 순서와 ListBox에서의 순서는 동일함) 도와주세요. ...
쭉쭉빵빵
•
2001.04.03 03:38
procedure Tform1.TreeView1Click(Sender: TObject);
begin
TreeView1.Selected
begin
TreeView1.Selected <- 선택한 TTreeNode
TreeView1.topitem <- 최상위루트의 TTreeNode
end;
이건 선택한 node의 값을 가져오면 되는데
만약 전 Tree를 검색할 필요가 있을경우 저의 경우 재귀함수를 씁니다.
procedure ddd(var n : TTreeView);
begin
while n <> nil do
begin
if n.getfirstchild <> nil then
ddd(n.getfirstchild);
n := n.getnext;
end;
end;
쩝 맞는지 모르겠네요.