在Delphi中checklistbox中高亮选中（不论是否Checked）能够进行操作么？删除，上下移动等等
删除：CheckListBox.DeleteSelected;
上下移： CheckListBox.Items.Move
删除用
CheckListBox1.Items.Delete(Index);
上下移动用
CheckListBox1.Items.Move(CurrentIndex,NewIndex);
//在项目中添加字符串(子项目的最后一位接着添加)
CheckListBox1.Items.Add(edit1.Text);
//全选 高亮选中Selected
CheckListBox1.MultiSelect:=True;
CheckListBox1.SelectAll;
//全选 Checked All
procedureTForm1.Button11Click(Sender: TObject);
vari :integer;
begin
fori:=0toCheckListBox1.Items.Count-1do
begin
CheckListBox1.Checked[i]:=True;//反选设置为False
end;
end;
//让第n行被高亮选中
CheckListBox1.Selected[1]:=true;//第2行
//取消高亮选中
CheckListBox1.ClearSelection;
//第3行的项目灰色不可用
CheckListBox1.ItemEnabled[2]:=False;//True可用
//删除高亮选中的项目，(只管高亮选中就会被删除，和checked是否无关)
CheckListBox1.DeleteSelected;//删除选中项目，即使该给项目 没勾上也会被删除
//删除已勾选的中项目
procedureTForm1.Button5Click(Sender: TObject);
vari : integer;
begin
fori:=CheckListBox1.Items.Count-1downto0do//从后面往前面删
begin
ifCheckListBox1.Checked[i]then
begin
CheckListBox1.Items.Delete(i);
end;
end;
end;
//清空项目
CheckListBox1.Items.Clear;
//将CheckListBox1的全部添加到CheckListBox2的Items中
procedureTForm1.Button1Click(Sender: TObject);
var
i:Integer;
begin
CheckListBox2.Items.Clear;
fori:=CheckListBox1.Items.Count-1downto0do
begin
CheckListBox2.Items.Add(CheckListBox1.Items[i]);
end;
end;