Listview items verschieben

[Van HelF]

Für alle die es interessiert, so funktionierts :

Delphi-Quellcode:

procedure TForm1.items_nach_unten;
var i:integer;
begin
  for i:=lv1.Items.count-2 downto 0 do
  begin
    if lv1.Items.Item[i].Selected then
    begin
      MoveListViewItem(lv1,i,i+2);
      lv1.Items.Item[i+1].Selected:=true;
    end;
  end;
end;