Skip to main content
Once you’ve created nodes, TeeTree provides extensive APIs to manipulate, navigate, and manage them. This guide covers essential node operations.

​
Node Properties

Every TTreeNodeShape is a full component with comprehensive properties.

​
Position and Size

// Direct position control
Node.X0 := 100;  // Left
Node.Y0 := 50;   // Top
Node.X1 := 300;  // Right
Node.Y1 := 150;  // Bottom

// Or use aliases
Node.Left := 100;
Node.Top := 50;
Node.Width := 200;
Node.Height := 100;

​
Text Content

// Single line text (property)
Node.SimpleText := 'Quick text';

// Multi-line text (TStringList)
Node.Text.Clear;
Node.Text.Add('First line');
Node.Text.Add('Second line');
Node.Text.Add('Third line');

// Assign from TStrings
Node.Text.Assign(Memo1.Lines);

​
Visibility and State

// Visibility
Node.Visible := True;
Node.Show;
Node.Hide;

// Expansion state
Node.Expanded := True;
Node.Toggle;  // Toggle expansion

// Selection
Node.Selected := True;
Tree1.Selected.Clear;  // Unselect all

// Checked state (for checkbox nodes)
Node.Checked := True;
Node.ToggleCheck;
The Visible property determines if a node is drawn. If a parent is collapsed, children have Visible = False automatically.

​
Parent-Child Navigation

// Get parent node
if Assigned(Node.Parent) then
  ShowMessage('Parent: ' + Node.Parent.SimpleText);

// Get root node
RootNode := Node.Root;

​
Tree Navigation

// Access root nodes
for i := 0 to Tree1.Roots.Count - 1 do
  ProcessNode(Tree1.Roots[i]);

// Access all nodes
for i := 0 to Tree1.Shapes.Count - 1 do
  ProcessNode(Tree1.Shapes[i]);

// Using default array property
Node := Tree1[0];  // First node in tree

​
Finding Nodes

1

Find by Text

Search for nodes by their text content:
// Exact match
Node := Tree1.Shapes.Find('MyNode', False);

// Partial match
Node := Tree1.Shapes.Find('My', True);

if Assigned(Node) then
  Node.Selected := True;
2

Find by Object

Search for nodes by associated TagObject:
Node := Tree1.Shapes.FindObject(MyObject);
3

Find by Click

Determine which node was clicked:
procedure Tree1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var Node: TTreeNodeShape;
begin
  Node := Tree1.Shapes.Clicked(X, Y);
  if Assigned(Node) then
    Label1.Caption := 'Node: ' + Node.SimpleText
  else
    Label1.Caption := '';
end;

​
Manipulating Nodes

​
Moving Nodes

// Move node and its children
Node.MoveRelative(50, 30, True);

// Move only the node
Node.MoveRelative(50, 30, False);

​
Resizing Nodes

// Interactive resize
Node.Resize(rcRightBottom, 20, 10);

// Direct size change
Node.Width := Node.Width + 50;
Node.Height := Node.Height + 20;

​
Z-Order Management

// Bring to front
Node.BringToFront;

// Send to back  
Node.SendToBack;

​
Iterating Through Nodes

​
Using ForEach

procedure ProcessNode(Sender: TTreeNodeShape);
begin
  // Process each node
  Sender.Color := clYellow;
end;

begin
  // Apply to all nodes
  Tree1.Shapes.ForEach(ProcessNode);
  
  // Apply to children only
  MyNode.Children.ForEach(ProcessNode);
end;

​
Manual Iteration

var i: Integer;
begin
  // Iterate all nodes
  for i := 0 to Tree1.Shapes.Count - 1 do
  begin
    Tree1.Shapes[i].Color := clWhite;
  end;
  
  // Iterate children
  for i := 0 to ParentNode.Count - 1 do
  begin
    ParentNode.Children[i].Visible := True;
  end;
end;

​
Expanding and Collapsing

// Expand/collapse one node
Node.Expanded := True;
Node.Expanded := False;

// Toggle
Node.Toggle;

​
Sorting Nodes

// Sort children by text
ParentNode.SortChildsText(True, False);   // Ascending, case sensitive
ParentNode.SortChildsText(False, True);   // Descending, ignore case

// Sort entire node list
Tree1.Shapes.Sort(True, True);  // Ascending, ignore case

​
Selecting Nodes

// Select single node
Node.Selected := True;

// Unselect all
Tree1.Selected.Clear;

// Select all children
ParentNode.SelectChilds;

// Access selected nodes
if Tree1.Selected.Count > 0 then
  FirstSelected := Tree1.Selected.First;

​
Editing Node Text

// Start editing
Tree1.StartEditing(Node);

// Check if editing
if Tree1.Editing then
  ShowMessage('Editing in progress');

​
Deleting Nodes

Deleting a node automatically deletes all its children and associated connections.
// Delete node and children
Node.Free;

// Clear all children
ParentNode.Clear;

// Remove specific child
ParentNode.RemoveChild(ChildNode);

// Clear entire tree
Tree1.Shapes.Clear;

​
Working with Node Data

​
Data Property

type
  PMyRecord = ^TMyRecord;
  TMyRecord = record
    ID: Integer;
    Name: string;
  end;

var
  MyData: PMyRecord;
begin
  New(MyData);
  MyData^.ID := 1;
  MyData^.Name := 'Test';
  
  // Associate with node
  Node.Data := MyData;
  
  // Retrieve later
  if Assigned(Node.Data) then
  begin
    MyData := PMyRecord(Node.Data);
    ShowMessage(MyData^.Name);
  end;
end;

​
TagObject Property

// Associate object (no need to free)
Node.TagObject := MyCustomObject;

// Retrieve
if Assigned(Node.TagObject) then
  MyObj := TMyClass(Node.TagObject);

​
Getting Node Bounds

var R: TRect;
begin
  // Node bounds
  R := Node.Bounds;
  
  // Adjusted bounds (includes image)
  R := Node.AdjustedRectangle;
  
  // Image position
  R := Node.ImageRect;
  
  // Center coordinates
  CenterX := Node.XCenter;
  CenterY := Node.YCenter;
end;

​
Level and Hierarchy Info

// Get depth level (0 for root)
NodeLevel := Node.Level;

// Check if inside tree bounds
if Node.InsideTreeBounds then
  ShowMessage('Node is visible in tree viewport');

​
Next Steps

Build docs developers (and LLMs) love

Get started for freeTalk to us