Delphi Listview中Shift-Up和Shift-Down如何实现连续上下移动项的功能？

本文共计472个文字，预计阅读时间需要2分钟。

在ListView控件中，是否具有上下移动项的功能取决于具体实现。如果您没有很好地使用TListView（主要使用数据库网格），以下是一种可能的实现方式：

java// 假设您已经从数据库中获取了数据并填充到适配器中ListView listView=findViewById(R.id.listView);listView.setAdapter(new ArrayAdapter(this, android.R.layout.simple_list_item_1, items));

listView.setOnTouchListener(new View.OnTouchListener() { @Override public boolean onTouch(View v, MotionEvent event) { if (event.getAction()==MotionEvent.ACTION_DOWN) { int position=listView.pointToPosition(event.getX(), event.getY()); if (position !=ListView.INVALID_POSITION) { // 交换位置 Collections.swap(items, position, position + 1); listView.getAdapter().notifyDataSetChanged(); return true; } } return false; }});

这段代码实现了在ListView上点击并拖动来移动项的功能。当用户点击并拖动某项时，该项与下一项的位置会交换，并更新ListView以反映新的顺序。注意，这只是一个简单的示例，实际应用中可能需要更复杂的逻辑来处理各种情况。

Listview控件中是否有一项功能可以上下移动项目？ 我没有很好地使用TListView(我主要使用数据库网格),我把你的问题作为学习的机会.以下代码是结果,大卫的答案更具视觉导向性.它有一些限制：它只会移动第一个选定的项目,当它移动项目时,vsicon和vsSmallIcon的显示在移动后很奇怪.

procedure TForm1.btnDownClick(Sender: TObject); var Index: integer; temp : TListItem; begin // use a button that cannot get focus, such as TSpeedButton if ListView1.Focused then if ListView1.SelCount>0 then begin Index := ListView1.Selected.Index; if Index<ListView1.Items.Count then begin temp := ListView1.Items.Insert(Index+2); temp.Assign(ListView1.Items.Item[Index]); ListView1.Items.Delete(Index); // fix display so moved item is selected/focused ListView1.Selected := temp; ListView1.ItemFocused := temp; end; end; end; procedure TForm1.btnUpClick(Sender: TObject); var Index: integer; temp : TListItem; begin // use a button that cannot get focus, such as TSpeedButton if ListView1.Focused then if ListView1.SelCount>0 then begin Index := ListView1.Selected.Index; if Index>0 then begin temp := ListView1.Items.Insert(Index-1); temp.Assign(ListView1.Items.Item[Index+1]); ListView1.Items.Delete(Index+1); // fix display so moved item is selected/focused ListView1.Selected := temp; ListView1.ItemFocused := temp; end; end; end;