Hallo,
ich suche jetzt schon nach länger zeit einer lösung zum verschieben von items in einer ListView... ich habe mir folgenden code ausgedacht aber es geht leider nicht: ich habe alles doppelt also:
ich makiere ein item und verschiebe es und habe auf einmal zwei davon..
hier der code:
Delphi-Quellcode:
procedure TForm1.ListView1DragDrop(Sender, Source: TObject; X, Y: Integer);
var
alt,neu,neu1:TListItem;
oldIndex:Integer;
begin
if ListView1.Selected <> NIl then begin
neu:=ListView1.GetItemAt(x,y); alt:=ListView1.ItemFocused;
neu1:=ListView1.Items[neu.index];
ListView1.Items[neu.index]:=alt;
ListView1.Items[alt.Index]:=neu1;
// listview1.Selected:=neu;
end;
end;
wobei ich kann mir nicht erkälren warum neu1 den gleichen wert hat wie alt