Basic-kode som viser hvordan du gjør det valgte TreeNode Fet uten eieren tegning
følgende kode bruker TVIS_BOLD konstant for å gjøre den valgte noden fet
enhet Unit1;.
Grensesnitt
bruker Windows, Meldinger, SysUtils, kurs, grafikk, kontroller, skjemaer, Dialoger, ComCtrls;
typen TForm1 = klasse (TForm) TreeView1: TTreeView; Prosedyren TreeView1Change (Sender: TObject, Node: TTreeNode); Prosedyren TreeView1Changing (Sender: TObject, Node: TTreeNode; Var AllowChange: Boolean); private {felleserklæringer} offentlige {offentlige erklæringer} end;
Var Form1: TForm1;
implementering
bruker Commctrl; product: {$ R * .DFM}
prosedyre SetNodeBold (Node: TTreeNode; MakeBold: Boolean); Var Sak: TTVItem; Mal: Integer; begynne hvis Assigned (Node) da begynne hvis MakeBold deretter Mal: ​​= -1 annet Mal: ​​= 0; Item.Mask: = TVIF_STATE; Item.hItem: = Node.ItemId; Item.StateMask: = TVIS_BOLD; Item.State: = Item.StateMask og mal; TreeView_SetItem (Node.TreeView.Handle, pos); ende; end;
prosedyre TForm1.TreeView1Change (Sender: TObject, Node: TTreeNode); begynne SetNodeBold (Node, sann); end;
prosedyre TForm1.TreeView1Changing (Sender: TObject, Node: TTreeNode; Var AllowChange: Boolean); begynne SetNodeBold (TreeView1.Selected, False) end;
slutten
.