Drag & Drop in ListView

[shareholder]

so, die suche hat mir nicht geholfen.

muss man für's draggen und droppen eine eigene funktion schreiben oder gibt es schon eine vordefinierte ?

ich habe bislang nur:

Delphi-Quellcode:

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

DragMode := Automatic;

es funzt aber nicht

edit: ich habe vsIcon eingestellt