摘要：
搞定了，分分拿来TreeView1需要设置MultiSelect = True; MultiSelStyle设置为[msControlSelect]procedure Tform1.TreeView1Click(Sender: TObject); var TNode,Cnode: TTreeNode; i: Integer; iLoop: Boolean; begin Cnode:= self.TreeView1.Selected; if not Cnode.Expanded then Exit; if Cnode.HasChildren then begin TNode:= Cnode.ge 阅读全文
