노드 생성 코드
procedure TForm1.Button1Click(Sender: TObject);
var
Root,Sub,Tree : TTreeNode;
RecPtr:PRec;
begin
TreeView1.Items.Clear;
New(RecPtr);
RecPtr^.Hint:='Hint 루트1';
RecPtr^.Name:='루트1 노드';
Root:= Treeview1.Items.AddObject(nil, RecPtr^.Name, RecPtr);
Root.ImageIndex:=0;
New(RecPtr);
RecPtr^.Hint:='Hint 서브1';
RecPtr^.Name:='서브 노드';
Sub:= Treeview1.Items.AddChildObject(Root, RecPtr^.Name, RecPtr);
Sub.ImageIndex:=0;
New(RecPtr);
RecPtr^.Hint:='Hint 서브의 자식1';
RecPtr^.Name:='서브의 자식 노드';
Tree:= Treeview1.Items.AddChildObject(Sub, RecPtr^.Name, RecPtr);
Tree.ImageIndex:=1;
Tree.SelectedIndex:=1;
New(RecPtr);
RecPtr^.Hint:='Hint 루트2';
RecPtr^.Name:='루트2 노드';
Root:= Treeview1.Items.AddObject(nil, RecPtr^.Name, RecPtr);
Root.ImageIndex:=0;
New(RecPtr);
RecPtr^.Hint:='Hint 서브1';
RecPtr^.Name:='서브 노드';
Sub:= Treeview1.Items.AddChildObject(Root, RecPtr^.Name, RecPtr);
Sub.ImageIndex:=0;
New(RecPtr);
RecPtr^.Hint:='Hint 서브의 자식1';
RecPtr^.Name:='서브의 자식 노드';
Tree:= Treeview1.Items.AddChildObject(Sub, RecPtr^.Name, RecPtr);
Tree.ImageIndex:=1;
Tree.SelectedIndex:=1;
end; |