Question

Delphi问题：ListView里面如何实现记录的上下移动？，并改变当前记录的颜色？

我用ListView分页显示数据，做了几个按钮。分别是上一条记录、上一条记录、上一页、下一页；那个分页功能实现了，上下移动记录我用ADOQuery1.RecNo值的加1减1实现，我点击上下移动按钮，点击一定次数后出错，说超出范围，估计上下移动功能是有作用的，但是在ListView中看不到上下移动记录的效果，所以需要使当前记录变颜色，以看到记录移动效果。不知道我的上下移动记录的代码是否有问题？希望各位大侠能给我记录上下移动的代码，以及改变当前记录的颜色的代码，小弟感激不尽，加分！！！急！！！

Answer 1

if (SelectedIndex - 1) < 0 then Exit;
ListBox1.Items.Move(SelectedIndex, (SelectedIndex - 1));
ListBox1.ItemIndex := SelectedIndex - 1;
ListBox1.Selected[SelectedIndex - 1] := True;

//还有的自己研究吧，不难
SetFocus
count,i:integer
try
if ListBox1 = nil then
Exit;
Count := ListBox1.Items.Count;
if Count = 0 then
Exit;
for I := 0 to IndexCount - 1 do
ListBox.Selected[i] := False;
ListBox.Selected[0] := true;
except

end;
listbox1.Canvas.Brush.Color :=Clred;//背景
listbox1.Canvas.Font.Color :=Clred;//字体
end;

Answer 2

ADOQuery1.RecNo是只读的，不能加减，它是用来返回当前记录的记录号的。上下移动记录用ADOQuery1.Prior和ADOQuery1.Next。