Page 1 of 1

Welcome to the Tweaking4All community forums!
When participating, please keep the Forum Rules in mind!

Topics for particular software or systems: Start your topic link with the name of the application or system.
For example “MacOS X – Your question“, or “MS Word – Your Tip or Trick“.

Please note that switching to another language when reading a post will not bring you to the same post, in Dutch, as there is no translation for that post!

Clear all

Lazarus Pascal - How to add properties or extra data to TTreenode? (used in TTreeview)

1 Posts
1 Users
Famed Member Admin
Joined: 10 years ago
Posts: 2556
Topic starter  

So when having a list in a TreeView, how do I add more properties to each node?

I found it surprisingly easy to create my own TreeNode variant ...

TMyTreeNode = class(TTreeNode)
  fANewProperty: String;
  property ANewProperty: String read fANewProperty write fANewProperty;


No to make sure this new type is being used when adding a new node/row to the Treeview, we need to make sure the onCreateNodeClass sets our new type:

procedure TForm1.TreeView1CreateNodeClass(Sender: TCustomTreeView; var NodeClass: TTreeNodeClass);
  NodeClass := TMyTreeNode;


Now when accessing the data, you will need to cast the proper type though:

TMyTreeNode(TreeView1.Selected).ANewProperty := 'some text';


Note that you not have to limit this to a simpel string - I've used this with large records as well and it works great.


Like what you see and you'd like to help out? 

The best way to help is of course by assisting others with their questions here in the forum, but you can also help us out in other ways:

- Do your shopping at Amazon, it will not cost you anything extra but may generate a small commission for us,
- send a cup of coffee through PayPal ($5, $10, $20, or custom amount),
- become a Patreon,
- donate BitCoin (BTC), or BitCoinCash (BCH).