Listview -> Drag&Drop + AutoScroll

[Metschu]

Hallo zusammen,

ich habe ein ListView im vsReport Style. Hier sollen die Einträge über Drag&Drop sortiert werden können.
Das klappt bis hier hin auch.

Es wäre nun schön, wenn die Liste Automatisch scrollt:

wenn User über die obere Postion des ListView geht nach oben scrollen, unter das ListView nach unten Scrollen.

Gibt es schon so eine Fertige Funktion und ich finde sie nicht?

Oder selbst basteln?

Hierfür benötige ich aber irgendeine info, das ich gerade im "Drag Modus":

Den Rest bekomme ich ja mit der Maus- und Listviewposition hin.

Als letzte Variante würde ich das mit "MouseDown" versuchen, aber da ist ja nicht gesagt, das ich gerade am Zeile Ziehen bin...

Danke schon mal.

Gruß

Torsten

[Uwe Raabe]

Was ist mit OnDragOver?

Du könntest auf

Delphi-Quellcode:

State = TDragState.dsDragMove

abfragen und anhand der Y-Position entscheiden, ob und in welche Richtung du scrollen willst. Je nachdem startest oder stoppst du einen Timer, in dessen Event das eigentliche Scrollen stattfindet.