ListView1DragDrop danach (selected=true)

[Specialwork]

Hallo Aaron,

Dein Problem ist, das sowohl Nextitem und CurrentItem auf nil zeigen.

Delphi-Quellcode:

procedure TForm1.ListView1DragDrop(Sender, Source: TObject; X, Y: Integer); 
var 
  DragItem, DropItem, CurrentItem, NextItem: TListItem; 
begin 
  if Sender = Source then 
    with TListView(Sender) do 
    begin 
      DropItem    := GetItemAt(X, Y); 
      CurrentItem := Selected; 
      while CurrentItem <> nil do 
      begin 
        NextItem := GetNextItem(CurrentItem, SdAll, [IsSelected]); 
        if DropItem = nil then DragItem := Items.Add 
        else 
          DragItem := Items.Insert(DropItem.Index); 
        DragItem.Assign(CurrentItem); 
        CurrentItem.Free; 
        CurrentItem := NextItem; 
       // NextItem.Focused; <-- = NIL
      // CurrentItem.Selected:=true;?<-- = NIL 
      end; 
    end; 
end;

Gruß, Tom