在线等待高分求救

Question

怎样上下移动listview中的内容

Answer 1

向上：
procedure TForm1.Button1Click(Sender: TObject);
var
  tempobject:Tobject;
  tempitem:Tlistitem;
  selectitem:Tlistitem;
  index:integer;
begin
  selectitem:=listview1.Selected;
  tempitem:=selectitem;
  index:=tempitem.Index;
  if index>0 then
  listview1.Items.Insert(index-1).Assign(tempitem);
  selectitem.Free;
  tempitem.Selected:=true;
end;往下类似

Answer 2

哦，你说的这个意思啊，我还以为你是要滚动呢！
如： RobinHZ(熊掌) 所说，插入、删除

Answer 3

向下：
procedure TForm1.Button2Click(Sender: TObject);
var
  tempobject:Tobject;
  tempitem:Tlistitem;
  selectitem:Tlistitem;
  index:integer;
begin
  selectitem:=listview1.Selected;
  tempitem:=selectitem;
  index:=tempitem.Index;
  if index<>listview1.items.count-1 then
  listview1.Items.Insert(index+1).Assign(tempitem);
  selectitem.Free;
  tempitem.Selected:=true;
end;

Answer 4

tempitem.selected:=true
去掉，写错了

Answer 5

var
  selectno,tono:Integer;
  fieldstr:String;
begin
  selectno:= ListView1.Selected.Index;
  if selectno<0 then begin
     Application.MessageBox('XXX提示警告！','提示信息',0+mb_iconwarning);
     Listview1.SetFocus;
     Exit;
  end
  else begin
     fieldstr:=Listview1.Items[selectno].Caption;
     tono:=selectno-1;
     if tono<0 then tono:=Listview1.Items.Count-1;
     Listview1.Items[selectno]:=Listview1.Items[tono];
     Listview1.Items[tono].Caption:=fieldstr;
     Listview1.Items[tono].Selected:=True;
  end;
end;

Answer 6

直接操作 INDEX了 
基本就可以了

Answer 7

var
  selectno,tono:Integer;
  fieldstr:String;
begin
  selectno:= ListView1.Selected.Index;
  if selectno<0 then begin
     Application.MessageBox('XXX提示警告！','提示信息',0+mb_iconwarning);
     Listview1.SetFocus;
     Exit;
  end
  else begin
     fieldstr:=Listview1.Items[selectno].Caption;
     tono:=selectno-1;
     if tono<0 then tono:=Listview1.Items.Count-1;
     Listview1.Items[selectno]:=Listview1.Items[tono];
     Listview1.Items[tono].Caption:=fieldstr;
     Listview1.Items[tono].Selected:=True;
  end;
  ListView1.SetFocus;
end;

Answer 8

index是唯读的，不可以修改，minercxy(Codewhy)已经给出了代码了，简单的说就是在要移动到的位置插入一个Item，然后复制(Assign)要移动的Item，删除要移动的Item。

Answer 9

minercxy(Codewhy)兄不行啊，
我只要不选最后一个就没反应。
选最后一个就删除最后一个。这有什么用啊

Answer 10

真是不好意思，向下移动的没有调试就给你了procedure TForm1.Button2Click(Sender: TObject);
var
  tempobject:Tobject;
  tempitem:Tlistitem;
  selectitem:Tlistitem;
  index:integer;
begin
  selectitem:=listview1.Selected;
  tempitem:=selectitem;
  index:=tempitem.Index;
  if index<>listview1.Items.Count-1 then
  begin
    listview1.Items.Insert(index+2).Assign(tempitem);
    selectitem.Free;
  end;
end;