Hallo...
mit dem Beispiel kann ich Listview Items nach unten schieben, wie kann ich nach oben verschieben.

zusammenfalten · markieren

Delphi-Quellcode:

function MoveListViewItem(listView: TListView; ItemFrom, ItemTo: Word): Boolean;
var Source, Target: TListItem;
begin
  Result := False;
  listview.Items.BeginUpdate;
  try
    Source := listview.Items[ItemFrom];
    Target := listview.Items.Insert(ItemTo);
    Target.Assign(Source);
    Source.Free;
    Result := True;
  finally
    listview.Items.EndUpdate;
  end;
end;

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

Gabs das nicht gerade erst? Benutz einfach mal die Suchfunktion zu MoveListViewItem.
Übrigens, "Index" zu verändern halte ich für eleganter als das neuerstellen dort.

stimmt...ich kriegs einfach nicht hin das teil nach oben zu schieben...

Zitat:

"Index" zu verändern halte ich für eleganter als das neuerstellen dort.

bin schon froh über das vorhandene beispiel...aber wenn du noch ein anderes hast wäre ich dir dankbar.
capo