您现在的位置:首页 >> 基础算法 >> window基础 >> 内容

Delphi中TTreeView组件中显示加粗的Item

时间:2011/9/3 15:30:26 点击:

  核心提示: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) ;

作者:站长 来源:转载
共有评论 0相关评论
发表我的评论
  • 大名:
  • 内容:
  • 盒子文章(www.2ccc.com) © 2022 版权所有 All Rights Reserved.
  • 沪ICP备05001939号