Ja, kann mir da mal eben jemand auf die Sprünge helfen? Ich habe da irgendwie ein Brett vor dem Kopf. Irgendwie will das nichts o, wie ich will:
Delphi-Quellcode:
procedure TForm1.SpinButton1DownClick(Sender: TObject);
var
CurrIndex: Integer;
NewItem: TListItem;
begin
if ListView1.ItemIndex > 0 then
begin
CurrIndex := ListView1.ItemIndex;
NewItem := Listview1.Items.Insert(CurrIndex+11);
NewItem.Assign(ListView1.Items.Item[CurrIndex]);
NewItem.Caption := Listview1.Items[CurrIndex].Caption;
Listview1.Items.Delete(CurrIndex);
end;
end;
Irgendwie löscht er nur den näcchsten Eintrag weg. Er soll aber den markierten Eintrag eins nach untenverschieben, also praktisch mit dem da drunter vertauschen.