ListBox, mittlerer Eintrag immer markiert

[LokutusvB]

Hallo,

gibt es bei einer TListbox die Möglichkeit, den mittleren Eintrag dieser Box immer als den markierten Eintrag darzustellen?

Sprich ich habe eine Listbox, in der immer 3 Einträge sichtbar sind, insgesamt hat sie z.B. 10 Einträge (plus 2 Leereinträge für nichtauswählbare Felder der Box). Nun möchte ich, das der aktuell mittlere Eintrag der Anzeige immer der markierte Eintrag ist, so in etwa wie bei einem Smartphone die Zeiteinstellung.

Ist das mit einer Listbox realisierbar?

[Sir Rufo]

FMX oder VCL?

[LokutusvB]

Ups, ganz vergessen, VCL.

[Sir Rufo]

Kuckst du Doku Vcl.StdCtrls.TListBox.TopIndex

[LokutusvB]

Daran hatte ich schon gedacht, aber der TopIndex ist ja für gewöhnlich der oberste Eintrag der Box. Aber siehe da, es funktioniert wunderbar.

Als OnGesture-Ereignis (Ausführung auf Tablet):

Code:

ListBox1.Selected[ListBox1.TopIndex + 1] := True;

[Sir Rufo]

Wenn du allerdings Vcl.StdCtrls.TListBox.MultiSelect gesetzt hast, dann geht das in die Hose.

Besser so

Delphi-Quellcode:

begin
  ListBox1.ItemIndex := ListBox1.TopIndex + 1;
end;

[LokutusvB]

Danke für den Tip. Nein, MultiSelect steht auf False, es darf nur ein Eintrag gewählt werden.

[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)

[LokutusvB]

Ja, die sichtbaren Einträge werden immer 3 sein. Die Anzahl aller Einträge wird variabel sein, aber mindestens 3.

Zusatz1:
Ich konnte kein Ereignis finden, das auf das Klicken des Scrollbalkens bzw. der Pfeile reagiert. Gibt es dafür kein Ereignis bei der Listbox?

Zusatz2:
Frage beantwortet. Nein, mit einer ListBox ist das nicht möglich. Lösung = eigene Komponente:
http://www.delphipages.com/forum/showthread.php?t=41035