TListBox, TCheckListBox scrollen

[Schwedenbitter]

Hallo,

ich benutze den hier im Forum zu findenden Code zum Verschieben von Einträgen in einer TCheckListBox. Das funktioniert soweit auch ganz gut.

Das Problem ist jedoch, dass mir das Scrollen überhaupt nicht gefällt:
Je größer das Fenster, desto besser klappt das Scrollen. Je kleiner (in meinem Fall 4 Zeilen) klappt es kaum. Das äußert sich daran, dass man beim Ziehen eines Eintrages an das Ende der Liste im unteren Bereich die Maus immer hoch und runter "rütteln" muss - nach oben dasselbe Spiel. Bei meinen 4 Zeilen klappt es manchmal garnicht.

Wie bekomme ich es hin, dass das Scrollen (fließend) klappt?

Ich habe bereits versucht, über die bei OnDragOver() mit übergebenen X- und Y-Positionen das Scrollen laufen zu lassen. Etwa so:

Delphi-Quellcode:

Procedure TForm1.DragOver();
...
   If Y<CheckListBox1.ItemHeight Then
      CheckListBox1.ScrollBy(0,-16);
   If Y>(CheckListBox1.Height-CheckListBox1.ItemHeight) Then
      CheckListBox1.ScrollBy(0,16);
...

Abgesehen davon, dass das unschöne Verzerrungen in der Box liefert, klappt das Scrollen nicht.

Gruß und Dank, Alex

[XXcD]

Das ruckelfreie scrollen klappt mit der Eigenschaft tracking

[Schwedenbitter]

Zitat von XXcD:

Das ruckelfreie scrollen klappt mit der Eigenschaft tracking

Danke für den Hinweis.

Ich habe schon gesucht. Aber weder bei TListBox noch bei TCheckListBox finde ich die Eigenschaft Tracking. Wo genau kann ich das einstellen?

Gruß, Alex

[XXcD]

Hmmm also so wie ich das gerade sehe hat die Listbox so eine Eigenschaft garnicht
Dann weiß ich jetzt leider auch nicht weiter.