核心提示：uses CommCtrl, ...;procedure BoldTreeNode(treeNode: TTreeNode; Value: Boolean) ;var treeItem: TTVIte...
uses CommCtrl, ...;procedure BoldTreeNode(treeNode: TTreeNode; Value: Boolean) ;
var
treeItem: TTVItem;
begin
if not Assigned(treeNode) then Exit;
with treeItem do
begin
hItem := treeNode.ItemId;
stateMask := TVIS_BOLD;
mask := TVIF_HANDLE or TVIF_STATE;
if Value then
state := TVIS_BOLD
else
state := 0;
end;
TreeView_SetItem(treeNode.Handle, treeItem) ;
end;
//Usage
BoldTreeNode(TreeView1.Items[1], True) ;
BoldTreeNode(TreeView1.Items[6], True) ;
