Drag & Drop in ListView

[alcaeus]

Delphi-Quellcode:

procedure TForm1.ListView1DragOver(Sender, Source: TObject; X, Y: Integer; 
  State: TDragState; var Accept: Boolean); 
begin 
  Accept := Source is TListView; 
end;

DragMode bei beiden Lists auf dmAuto und dann gehts...zumindest bei mir.