노드 생성 코드

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;

 해당 노드의 힌트값 출력 소스

procedure TForm1.TreeView1DblClick(Sender: TObject);
var

p:PRec;
tree:TTreeNode;

begin

tree:=TreeView1.Selected;
New(p);
p:=tree.Data;

 if Treeview1.Selected.Level > 1 then begin   // 노드 깊이가 1 이상일시 실행
   showmessage(p^.Hint);
 end;

end;