Kriegt man diesen Effekt bei ListBox irgendwie abgeschaltet?

[Popov]

Hier ein kleines Beispiel. Dazu einfach nur eine ListBox auf dem Formular platzieren:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
   ListBox1.Align := alClient;

  //ListBox1 mit irgendwelchen Beispielwerten füllen
  for i := 1 to 200 do
    ListBox1.Items.Add(IntToStr(Random(MaxInt)));

  ListBox1.ItemIndex := 15;

  ListBox1.Style := lbOwnerDrawVariable;

  //und nun starten und am Scrollrad der Maus drehen
end;

Wenn man nun an dem Scrollrad der Mausdreht bewegt sich der Inhalt rauf und runter. Aber, und das passiert nur bei lbOwnerDrawVariable, für mich sehr nervig. Denn, obwohl sich nur paar Items rauf oder runter bewegen, wird immer zuerst die ganze Seite mehrmals durchscrollt. Es sieht so aus als ob der Inhalt paar Seiten weiter verschoben wird.

Es sieht aber nur optisch so aus, in Wirklichkeit sind es nur paar Items rauf und runter. Es ist nichts schlimmes, es nervt nur etwas.