TreeView中嵌入CheckBox 如何使CheckBox Enable为False

Question

下面的代码实现TreeView中嵌入CheckBox，但如何使Checkbox的Enable变为False,即单击时无效，我只想用它查看已经选择的状态function   TreeNodeGetChecked(mTreeNode:   TTreeNode):   Boolean;
var
  vTVItem:   TTVItem;
begin
  Result   :=   True;
  if   not   Assigned(mTreeNode)   or   not   Assigned(mTreeNode.TreeView)   then   Exit;
  vTVItem.mask := TVIF_STATE;
  vTVItem.hItem := mTreeNode.ItemId;
  if TreeView_GetItem(mTreeNode.TreeView.Handle,  vTVItem) then
    Result := (vTVItem.State and IndexToStateImageMask(2)) > 0;   //0:   None   1:   False   2:   True
end;   {   TreeNodeGetChecked   }function   TreeNodeSetChecked(mTreeNode:   TTreeNode;   mChecked:   Boolean):   Boolean;
var
  vTVItem: TTVItem;
begin
  Result := False;
  if not Assigned(mTreeNode) or not Assigned(mTreeNode.TreeView) then Exit;
    vTVItem.mask := TVIF_STATE;
    vTVItem.hItem := mTreeNode.ItemId;
    TreeView_GetItem(mTreeNode.TreeView.Handle,   vTVItem);
    if not TreeView_GetItem(mTreeNode.TreeView.Handle,   vTVItem)   then   Exit;
    vTVItem.stateMask   :=   TVIS_STATEIMAGEMASK;
    vTVItem.state   :=   IndexToStateImageMask(Succ(Ord(mChecked)));
    Result   :=   TreeView_SetItem(mTreeNode.TreeView.Handle,   vTVItem);
  end;   {   TreeNodeSetChecked   }procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  procedure   pSelect(mTreeNode:   TTreeNode;   mChecked:   Boolean);
  var
      I:   Integer;
  begin
      TreeNodeSetChecked(mTreeNode,   mChecked);
      for   I   :=   0   to   mTreeNode.Count   -   1   do   pSelect(mTreeNode[I],   mChecked);
  end;  procedure   pSelectYes(mTreeNode:   TTreeNode);
  begin
      while   Assigned(mTreeNode.Parent)   and
          not   TreeNodeGetChecked(mTreeNode.Parent)   do   begin
          TreeNodeSetChecked(mTreeNode.Parent,   True);
          mTreeNode   :=   mTreeNode.Parent;
      end;
  end;  procedure   pSelectNo(mTreeNode:   TTreeNode);
  var
      I:   Integer;
  begin
      if   Assigned(mTreeNode.Parent)   and   TreeNodeGetChecked(mTreeNode.Parent)   then   begin
          for   I   :=   0   to   mTreeNode.Parent.Count   -   1   do
              if   TreeNodeGetChecked(mTreeNode.Parent[I])   then   Exit;
          TreeNodeSetChecked(mTreeNode.Parent,   False);
          pSelectNo(mTreeNode.Parent);
      end;
  end;  var
      vTreeNode:   TTreeNode;
  begin
    //Edit1.Text := DateTimeToSTr(Now);
      if   not   (htOnStateIcon   in   TTreeView(Sender).GetHitTestInfoAt(X,   Y))   then   Exit;
      vTreeNode   :=   TTreeView(Sender).GetNodeAt(X,   Y);
      TreeNodeSetChecked(vTreeNode,  TreeNodeGetChecked(vTreeNode));
      if   not   TreeNodeGetChecked(vTreeNode)   then
          pSelectNo(vTreeNode)
      else   pSelectYes(vTreeNode);
  end;

Answer 1

function       TreeNodeGetChecked(mTreeNode:       TTreeNode):       Boolean; 
var 
    vTVItem:       TTVItem; 
begin 
    Result       :=       True; 
    if       not       Assigned(mTreeNode)       or       not       Assigned(mTreeNode.TreeView)       then       Exit; 
    vTVItem.mask   :=   TVIF_STATE; 
    vTVItem.hItem   :=   mTreeNode.ItemId; 
    if   TreeView_GetItem(mTreeNode.TreeView.Handle,     vTVItem)   then 
        Result   :=   (vTVItem.State   and   IndexToStateImageMask(2))   >   0;       //0:       None       1:       False       2:       True 
end;       {       TreeNodeGetChecked       } function       TreeNodeSetChecked(mTreeNode:       TTreeNode;       mChecked:       Boolean):       Boolean; 
var 
    vTVItem:   TTVItem; 
begin 
    Result   :=   False; 
    if   not   Assigned(mTreeNode)   or   not   Assigned(mTreeNode.TreeView)   then   Exit; 
        vTVItem.mask   :=   TVIF_STATE; 
        vTVItem.hItem   :=   mTreeNode.ItemId; 
        TreeView_GetItem(mTreeNode.TreeView.Handle,       vTVItem); 
        if   not   TreeView_GetItem(mTreeNode.TreeView.Handle,       vTVItem)       then       Exit; 
        vTVItem.stateMask       :=       TVIS_STATEIMAGEMASK; 
        vTVItem.state       :=       IndexToStateImageMask(Succ(Ord(mChecked))); 
        Result       :=       TreeView_SetItem(mTreeNode.TreeView.Handle,       vTVItem); 
    end;       {       TreeNodeSetChecked       } procedure   TForm1.TreeView1MouseDown(Sender:   TObject;   Button:   TMouseButton; 
    Shift:   TShiftState;   X,   Y:   Integer); 
    procedure       pSelect(mTreeNode:       TTreeNode;       mChecked:       Boolean); 
    var 
            I:       Integer; 
    begin 
            TreeNodeSetChecked(mTreeNode,       mChecked); 
            for       I       :=       0       to       mTreeNode.Count       -       1       do       pSelect(mTreeNode[I],       mChecked); 
    end;     procedure       pSelectYes(mTreeNode:       TTreeNode); 
    begin 
            while       Assigned(mTreeNode.Parent)       and 
                    not       TreeNodeGetChecked(mTreeNode.Parent)       do       begin 
                    TreeNodeSetChecked(mTreeNode.Parent,       True); 
                    mTreeNode       :=       mTreeNode.Parent; 
            end; 
    end;     procedure       pSelectNo(mTreeNode:       TTreeNode); 
    var 
            I:       Integer; 
    begin 
            if       Assigned(mTreeNode.Parent)       and       TreeNodeGetChecked(mTreeNode.Parent)       then       begin 
                    for       I       :=       0       to       mTreeNode.Parent.Count       -       1       do 
                            if       TreeNodeGetChecked(mTreeNode.Parent[I])       then       Exit; 
                    TreeNodeSetChecked(mTreeNode.Parent,       False); 
                    pSelectNo(mTreeNode.Parent); 
            end; 
    end;     var 
            vTreeNode:       TTreeNode; 
    begin 
        //Edit1.Text   :=   DateTimeToSTr(Now); 
            if       not       (htOnStateIcon       in       TTreeView(Sender).GetHitTestInfoAt(X,       Y))       then       Exit; 
            vTreeNode       :=       TTreeView(Sender).GetNodeAt(X,       Y); 
            TreeNodeSetChecked(vTreeNode,     TreeNodeGetChecked(vTreeNode)); 
            if       not       TreeNodeGetChecked(vTreeNode)       then 
                    pSelectNo(vTreeNode) 
            else       pSelectYes(vTreeNode); 
    end;

Answer 2

function       TreeNodeGetChecked(mTreeNode:       TTreeNode):       Boolean; 
var 
    vTVItem:       TTVItem; 
begin 
    Result       :=       True; 
    if       not       Assigned(mTreeNode)       or       not       Assigned(mTreeNode.TreeView)       then       Exit; 
    vTVItem.mask   :=   TVIF_STATE; 
    vTVItem.hItem   :=   mTreeNode.ItemId; 
    if   TreeView_GetItem(mTreeNode.TreeView.Handle,     vTVItem)   then 
        Result   :=   (vTVItem.State   and   IndexToStateImageMask(2))   >   0;       //0:       None       1:       False       2:       True 
end;       {       TreeNodeGetChecked       } function       TreeNodeSetChecked(mTreeNode:       TTreeNode;       mChecked:       Boolean):       Boolean; 
var 
    vTVItem:   TTVItem; 
begin 
    Result   :=   False; 
    if   not   Assigned(mTreeNode)   or   not   Assigned(mTreeNode.TreeView)   then   Exit; 
        vTVItem.mask   :=   TVIF_STATE; 
        vTVItem.hItem   :=   mTreeNode.ItemId; 
        TreeView_GetItem(mTreeNode.TreeView.Handle,       vTVItem); 
        if   not   TreeView_GetItem(mTreeNode.TreeView.Handle,       vTVItem)       then       Exit; 
        vTVItem.stateMask       :=       TVIS_STATEIMAGEMASK; 
        vTVItem.state       :=       IndexToStateImageMask(Succ(Ord(mChecked))); 
        Result       :=       TreeView_SetItem(mTreeNode.TreeView.Handle,       vTVItem); 
    end;       {       TreeNodeSetChecked       } procedure   TForm1.TreeView1MouseDown(Sender:   TObject;   Button:   TMouseButton; 
    Shift:   TShiftState;   X,   Y:   Integer); 
    procedure       pSelect(mTreeNode:       TTreeNode;       mChecked:       Boolean); 
    var 
            I:       Integer; 
    begin 
            TreeNodeSetChecked(mTreeNode,       mChecked); 
            for       I       :=       0       to       mTreeNode.Count       -       1       do       pSelect(mTreeNode[I],       mChecked); 
    end;     procedure       pSelectYes(mTreeNode:       TTreeNode); 
    begin 
            while       Assigned(mTreeNode.Parent)       and 
                    not       TreeNodeGetChecked(mTreeNode.Parent)       do       begin 
                    TreeNodeSetChecked(mTreeNode.Parent,       True); 
                    mTreeNode       :=       mTreeNode.Parent; 
            end; 
    end;     procedure       pSelectNo(mTreeNode:       TTreeNode); 
    var 
            I:       Integer; 
    begin 
            if       Assigned(mTreeNode.Parent)       and       TreeNodeGetChecked(mTreeNode.Parent)       then       begin 
                    for       I       :=       0       to       mTreeNode.Parent.Count       -       1       do 
                            if       TreeNodeGetChecked(mTreeNode.Parent[I])       then       Exit; 
                    TreeNodeSetChecked(mTreeNode.Parent,       False); 
                    pSelectNo(mTreeNode.Parent); 
            end; 
    end;     var 
            vTreeNode:       TTreeNode; 
    begin 
        //Edit1.Text   :=   DateTimeToSTr(Now); 
            if       not       (htOnStateIcon       in       TTreeView(Sender).GetHitTestInfoAt(X,       Y))       then       Exit; 
            vTreeNode       :=       TTreeView(Sender).GetNodeAt(X,       Y); 
            TreeNodeSetChecked(vTreeNode,     TreeNodeGetChecked(vTreeNode)); 
            if       not       TreeNodeGetChecked(vTreeNode)       then 
                    pSelectNo(vTreeNode) 
            else       pSelectYes(vTreeNode); 
    end;