作个循环
for i:= 0 to treeview1.selected.count -1 do
begin
   //Treeview1.selected.items[i]不知道你是怎么记录checkbox,这里自己写吧
end;

解决方案 »

  1.   

    function Tfrm_PIDTOBID.SetChildFlag(node: TTreeNode; Flag: Integer): TTreeNode;
    var
      myNode: TTreeNode;
    begin
      MyNode:=Node.getFirstChild;
      while myNode<>nil do
        MyNode:=SetChildFlag(MyNode,Flag);
      if Node.Selected then ....
      Result:=Node.GetNextChild(Node);
    end;
      

  2.   

    谢谢christian_dindin(石之轩),搞定了!