moedige schilderen, de code geeft aan hoe de geselecteerde boom - moedige geen kaart, de volgende code gebruiken, zodat de geselecteerde module moedig zijn, tvis_bold, eenheid; interface, het gebruik van   ramen,   nieuws, SysUtils, klasse, grafische, de controles, de vorm, de dialoog,,     comctrls;, het type, de     een gebeurtenis = (platform),         treeview1:TTreeView;,         programma treeview1change (afzender: TObject; -: ttreenode);  ,       programma treeview1changing (afzender: TObject; -: ttreenode,        ;     var allowchange: booleaanse);    , particuliere,         (particuliere    } {}         vermeldt, publieke verklaringen,     einde; var, de     form1: een gebeurtenis plaatsvindt, te bereiken;但是，使用commctrl；，{ $ R *。DFM }，程序setnodebold（节点：ttreenode；makebold：布尔）；，，VaR，  项目：ttvitem；，  模板：整数；，开始，  如果分配（节点）然后，  开始，    如果makebold然后，      模板：= 1、    别的，      模板：= 0；，    item.mask：= tvif_state；，    item.hitem：=节点。$Itemid；，    item.statemask：= tvis_bold；，    item.state：= item.statemask和模板；，    treeview_setitem（node.treeview.handle，项）；，  结束；结束；，，程序发生一事件。treeview1change（发件人：TObject；节点：ttreenode）；，开始，  setnodebold（节点，true）；，，程序结束；发生一事件。treeview1changing（发件人：TObject；节点：ttreenode；，  VAR allowchange: booleaanse);    , beginnen, setnodebold (treeview1.selected, valse), voorbij, voorbij.