怎样通过语句来控制LISTVIEW的上移下移?

Question

比如我现在选中一条数据,选中时是蓝色的,现在我点一下"上移"按钮,我想让LISTVIEW上移,并且选中的蓝色条也上移,怎么做?谢谢.马上给分.

Answer 1

if (listview1.Selected <>nil) and (listview1.Selected.Index >0)  then 
  listview1.Items[listview1.Selected.Index-1].Selected :=true;这个是上移的代码

Answer 2

应当先选中该ITEM
ListView1.Selected:=ListView1.Items[X];//X是你想选中的ITEM
然后
listview1.Selected.MakeVisible(PartialOK: Boolean);
//其中PartialOK参数决定是否该item整体可见还是只要可见就可以了.

Answer 3

if (listview1.Selected <>nil) and (listview1.Selected.Index+1<listview1.items.Count) 
then 
  listview1.Items[listview1.Selected.Index+1].Selected :=true;
这个是下移的代码