1 //1.引用单元  2 uses Commctrl ;  3   4 //2.定义私有过程  5   procedure tvToggleCheckbox(TreeView: TTreeView;Node: TTreeNode;isclick:boolean =false);  6   procedure SetChecked(Node: TTreeNode; Checked: Boolean);  7   function IsChecked(Node: TTreeNode): Boolean;   8    9 //3.过程体代码 10 //检查某个节点是否被 选中 11 function TForm1.IsChecked(Node: TTreeNode): Boolean; 12 var 13   TvItem :TTVItem; 14 begin 15   TvItem.Mask := TVIF_STATE; 16   TvItem.hItem := Node.ItemId; 17   TreeView_GetItem(Node.TreeView.Handle, TvItem); 18   Result := (TvItem.State and TVIS_CHECKED) = TVIS_CHECKED; 19 end; 20 //让 某个节点被 选中 21 procedure TForm1.SetChecked(Node: TTreeNode; Checked: Boolean); 22 var 23 TvItem :TTVItem; 24 begin 25   FillChar(TvItem, SizeOf(TvItem), 0); 26   with TvItem do 27   begin 28     hItem := Node.ItemId; 29     Mask := TVIF_STATE; 30     StateMask := TVIS_STATEIMAGEMASK; 31     if Checked then 32       TvItem.State :=TVIS_CHECKED 33     else 34       TvItem.State :=TVIS_CHECKED shr 1; 35     TreeView_SetItem(Node.TreeView.Handle, TvItem); 36   end; 37 end; 38 // 对节点中所有 子节点 都 选中或 未选中 状态 39 procedure TForm1.tvToggleCheckbox(TreeView: TTreeView; 40 Node: TTreeNode ;isclick :boolean=false); 41 var CurNode, ParentNode, GrandSonNode,sonNode: TTreeNode; 42 flg1: boolean; 43 begin 44   CurNode :=node; 45   with TreeView do 46   begin 47     if IsChecked(CurNode) then // 48     begin 49       sonNode := CurNode.GetFirstChild; //遍历子树,选中 则子节点 全部 为选中； 50       while sonNode<>nil do 51       begin 52         SetChecked(sonNode, true); 53         tvToggleCheckbox(TreeView,sonNode,true); 54         sonNode := sonNode.GetNextSibling; 55       end; 56       ParentNode:= CurNode.Parent; //父； 57       if ParentNode<>nil then 58       begin 59         if not isChecked(parentNode) then 60         begin 61           GrandSonNode := ParentNode.GetFirstChild; //遍历子树； 62           flg1 := false; 63           while GrandSonNode<>nil do 64           begin 65             if (not IsChecked(GrandSonNode)) then //true,有未选中 66             flg1 := true; 67             if flg1 then //已有、退出loop; 68             GrandSonNode := nil 69             else 70             GrandSonNode := GrandSonNode.GetNextSibling; 71           end; 72           SetChecked(ParentNode, not flg1); 73           tvToggleCheckbox(TreeView,ParentNode,false); 74         end; 75       end; // end parentNode 不等于空 76     end 77     else if not IsChecked(CurNode) then 78     begin 79       ParentNode := CurNode.Parent; //父； 80       if ParentNode<>nil then 81       begin 82         if isChecked(parentNode) then 83         begin 84           SetChecked(ParentNode, false); 85           tvToggleCheckbox(TreeView,ParentNode); 86         end; 87       end; //end parentnode 88       if (isclick) then 89       begin 90         sonNode := CurNode.GetFirstChild; //遍历子树,未选中 则子节点 全部 为未选中； 91         while sonNode<>nil do 92         begin 93           SetChecked(sonNode, false); 94           tvToggleCheckbox(TreeView,sonNode,true); 95           sonNode := sonNode.GetNextSibling; 96         end; 97       end; 98     end; 99   end;100 end;101 102 //4.点击连选处理103 procedure TForm1.TreeView1Click(Sender: TObject);104 var105   P:TPoint;106   treenode :TTreeNode;107 begin108   GetCursorPos(P);109   P := TreeView1.ScreenToClient(P);110   if (htOnStateIcon in TreeView1.GetHitTestInfoAt(P.X,P.Y)) then111   begin112     treenode := TreeView1.GetNodeAt(P.X,P.Y);113     tvToggleCheckbox(TreeView1,treenode ,true);114   end;115 end;116 117 //5.生成节点118 procedure TForm1.FormCreate(Sender: TObject);119 begin120   //仅仅这一句话就能让treeview 显示复选框121   SetWindowLong(TreeView1.Handle, GWL_STYLE, GetWindowLong(TreeView1.Handle, GWL_STYLE) or $00000100);122 //  SetWindowLong(H, GWL_STYLE, GetWindowLong(H, GWL_STYLE) or TVS_CHECKBOXES);  //这名同上一个意思123   {下面的代码只是给 TreeView 添加内容}124   with TreeView1 do125   begin126      Align := alLeft;127      Items.Add(nil, ‘AAA‘);128      Items.Add(nil, ‘BBB‘);129      Items.Add(nil, ‘CCC‘);130      Items.AddChild(Items[2], ‘111‘);131      Items.AddChild(Items[2], ‘222‘);132      Items.AddChild(Items[2], ‘333‘);133   end;134 end;135 136 //6.查看是否选中137 procedure TForm1.Button1Click(Sender: TObject);138 var139   Node: TTreeNode;140   TVI: TTVItem;141 begin142   for Node in TreeView1.Items do143   begin144     TVI.mask := TVIF_STATE;145     TVI.hItem := Node.ItemId;146     TreeView_GetItem(TreeView1.Handle, TVI);147     if TVI.state and $2000 = $2000 then148       ShowMessage(Node.Text);149   end;150 end;