Delphi Listview使用按钮向上/向下移动项目

Question

  

可能重复：
  Delphi: Shift-Up and Shift-Down in the Listview

您好 我有一个列表视图，我希望能够使用按钮在列表中上下移动选定的项目/项目，但无法弄清楚如何执行此操作，有人可以给我一个示例

非常感谢

科林

Answer 1

procedure Tfrprodetile.ExchangeItems(lv: TListView; const i, j: Integer);
var
  tempLI: TListItem;
begin
  lv.Items.BeginUpdate;
  try
    tempLI := TListItem.Create(lv.Items);
    tempLI.Assign(lv.Items.Item[i]);
    lv.Items.Item[i].Assign(lv.Items.Item[j]);
    lv.Items.Item[j].Assign(tempLI);
    tempLI.Free;
  finally
    lv.Items.EndUpdate
  end;
end;

和使用：

向下移动：

ExchangeItems(lst_detile,lst_detile.Selected.Index,lst_detile.Selected.Index+1);

向上移动：

ExchangeItems(lst_detile,lst_detile.Selected.Index,lst_detile.Selected.Index-1);

请注意，“lst_detile”是我的列表视图的名称

美好的一天！