, grundlæggende kode, der viser, hvordan den udvalgte treenode dristige uden ejer tegning, følgende kode bruger tvis_bold konstant at gøre de udvalgte node dristige. enhed enhed1; interface, anvendelse,    vinduer, beskeder, sysutils, klasser, grafik, kontrol, former, dialoger,,    comctrls;, type,    tform1 = klasse (tform),      treeview1: ttreeview;,      procedure treeview1change (afsender: tobject; node: ttreenode),      procedure treeview1changing (afsender: tobject; node: ttreenode;,        var allowchange: boolean),    private,      {private erklæringer),    offentlige,      {offentlige erklæringer),    ophør, var,    form1: tform1, implem;anvendelse af bevillinger, commctrl; ($r *. dfm}, procedure setnodebold (node: ttreenode; makebold: boolean);,, var,    punkt: ttvitem;,    model: heltal, begynder, hvis der    (node),    begynder,     , hvis makebold,        model: = - 1,      andet,        model: = 0,      item.mask: = tvif_state;,      item.hitem: = node. itemid;,      item.statemask: = tvis_bold;,      item.state: = item.statemask og skabelon,      treeview_setitem (node.treeview.handle, punkt),   ;,;, procedure tform1. treeview1change (afsender: tobject; node: ttreenode), begynder,    setnodebold (node, sande);,;, procedure tform1. treeview1changing (afsender: tobject; node: ttreenode;,    vaf allowchange: boolean), begynder,    setnodebold (treeview1.selected, falske),.,.,