ListBox, mittlerer Eintrag immer markiert

[himitsu]

Besser man ändert nicht die Selektierung, sondern die Positionierung.
ListBox1.TopIndex := ListBox1.ItemIndex - 1; (Sind das immer 3 Einträge, auch in Zukunft? Wenn nicht, dann besser sichtbare_Zeilenanzahl durch 2 , aka (ClientHeight durch ItemHeight) durch 2 )

Klickt mal auf einen sichtbaren Eintrag (außer dem in der Mitte) und wundert euch, warum der nicht aktiv wird. (bzw. warum wer wieder deselektiert wird)