如何移动ListBox中的内容

Question

用一个button，请问如何才能实现移动ListBox中的内容，谢谢。

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
  ComboBox1.Items.Move(1,0);//将第一行移到第零行
end;

Answer 2

ListBox也是和ComboBox一样的
procedure TForm1.Button1Click(Sender: TObject);
begin
  ListBox1.Items.Move(1,0);//将第一行移到第零行
end;

Answer 3

谢谢关注，我的listbox中有六项内容，用两个button实现对任意在listbox中选中的项目进行，上下的移动，谢谢

Answer 4

我用ListBox1.Items.Move(ListBox1.ItemIndex,ListBox1.ItemIndex-1)可是move一次之后，就弹出来已经到-1了，同时，刚才所选中的那项，也变成未选中了，请问这个问题，怎么解决，谢谢