删除： CheckListBox.DeleteSelected； 上移： CheckListBox.Items.Move删除用checklistbox1. items.delete (index )； 上下移动用checklistbox1. items.move (current index，NewIndex )； //向项目中添加字符串(后跟子项目的最后一位) (checklistbox1.items.add ) edit1.text )； //全选高亮显示selected checklistbox1. multiselect :=true； CheckListBox1.SelectAll； //全部为checkedallproceduretform1. button 11 click (sender : tobject )； var i :integer； begin fori :=0to checklistbox1. items.count-1 dobegin checklistbox1. checked [ I ] :=true； //反向选择为False end； 结束； 第//n行被高亮显示checklistbox1. selected [1] :=true；//取消第2行CheckListBox1.ClearSelection的高亮显示；//第3行项目灰色为checklistbox1. item enabled [2] :=false； //True可以用//删除突出显示的项目。 (仅突出显示将被删除。 不管是不是checked。 ) CheckListBox1.DeleteSelected； //删除选择的项目。 即使那个项目没有被选中，也会被删除。 //检查的中项目procedure tform1. button5click (sender : tobject )； var i : integer； begin fori :=checklistbox1. items.count-1 down to0do//begin if checklistbox1. checked [ I ] thenbeginchecklistbox 结束； 结束； //清除项目CheckListBox1.Items.Clear； 将所有CheckListBox1放在CheckListBox2的Items上procedure tform1. button1click (sender : tobject )； var i:Integer； begin CheckListBox2.Items.Clear； fori :=checklistbox1. items.count-1 down to0dobegin checklistbox2. items.add (checklistbox1. items (I ) )； 结束； 结束； 视图代码
转载于：https://www.cn blogs.com/blog pro/p/11453362.html