팁에서 간단한 예제 골랐어요.



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;

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





cico wrote:

> treeview 콤포넌트를 해보고 싶어서요!

>

> 간단하더라고 예제 있음 좀 올려 주시겠어요?

>

> 그럼 땡큐지요!

감사합니다.

근데요!~

만약 내컴의 c드라이브의 내용을 트리뷰로 나타낸다면 어케하지요?

물론 다이얼로그 컴포도 있지만...

기타맨 wrote:

> 팁에서 간단한 예제 골랐어요.

>

> 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;

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

>

>

> cico wrote:

> > treeview 콤포넌트를 해보고 싶어서요!

> >

> > 간단하더라고 예제 있음 좀 올려 주시겠어요?

> >

> > 그럼 땡큐지요!