摘要:
====================================需要设置multiselect=true;multiselstyle设置为[mscontrolselect]procedure TUserRightSet.BitBtn8Click(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 be. 阅读全文