TListbox - Scrollbar

[meggles]

Hallo,
wie kann ich den Scrollbalken einer TListbox vertikal ausrichten? Geht das überhaupt?
Falls nein: wie kann ich ihn zumindest schmaler machen?
Danke,
SImon

[PhöniX]

Ich glaub das geht nicht..Ich hab noch nie sowas gesehen..
Aber sag mal: Was soll das bringen? :gruebel:

[meggles]

Berechtigte Frage... :-D
In diesem Fenster sollen Email-Adressen von Empfängern dargestellt werden. Diese werden in meiner Unit aber als TKontakt verwaltet. Da ist mit TListBox.Addobject einfacher zu arbeiten, als die Strings eines Editfeldes auszuwerten.
Trotzdem Danke!!

[SirThornberry]

Delphi-Quellcode:

SendMessage(ListBox1.Handle, LB_SetHorizontalExtent, Breite, LongInt(0));

Breite ist ein Integer der die Breite angibt die darstellbar sein soll.
Wenn du zum beispiel "skskls dfkdfljlsdf jdflsdfjsf" als längstes wort in deiner listbox hast muss die anweisung so aussehen

Delphi-Quellcode:

Breite := Listbox1.Canvas.TextWidth('skskls dfkdfljlsdf jdflsdfjsf') + 5;
SendMessage(ListBox1.Handle, LB_SetHorizontalExtent, Breite, LongInt(0));