송수정 wrote:

> 디비에 있는 내용을 treeview에 나타나게해야 하는데..

> treeview를 자세히 본건 오널이 첨 입니다..

> 여기 Q&A를 찾아보니까 서브 아이템이 첫번째 인것까지는 나와있는데..

> 그담부턴 없더라고여.. 기본적인 것밖에..

> 서브아이템이 6개정도는 되어야 되는데.. while문으로 돌리다 보면 서브가 아닌데 서브로 들어가고..

> 제 머리론.. 도저히..

> 도움될만한 예제를 갈켜주세여..

> 아니면.. 멜로 보내주세염...



[출처] 델파이 Q&A 키타맨의 답변...

procedure TForm1.Button1Click(Sender: TObject);

var

MyTreeNode1, MyTreeNode2: TTreeNode;

begin

with TreeView1.Items do

begin

{Root node를 추가한다}

Add(TreeView1.Selected, 'RootTreeNode1');



{MyTreeNode를 first node로 하고, 그 child node를 추가}

MyTreeNode1 := TreeView1.Items[0];

AddChild(MyTreeNode1,'ChildNode1');



{root node를 하나 더 추가}

Add(TreeView1.Selected, 'RootTreeNode2');



{MyTreeNode를 세번째 node로 설정하고, 거기에 child node 추가}

MyTreeNode2:=TreeView1.items[2];

AddChild(MyTreeNode2,'ChildNode2');

end;

end;그냥 실행해보세요..조금은 이해가 되실꺼구. 쓰면서 자꾸 늘거든요..