Horizontale Scrollbar in einer TListbox anzeigen
Hi,
das große Problem: die TListbox ist kleiner als ein Eintrag, und dieser wird nicht vollständig angezeigt.
Dieser Code beseitigt das Problem:
Delphi-Quelltext
1:
| SendMessage(listbox1.handle, lb_SetHorizontalExtent, listbox1.canvas.TextWidth(laengster_textstring), LongInt(0)); |
Der erste Parameter gibt das Handle an. Der zweite Parameter ist die Angabe für den Scrollbalken. Der dritte Parameter gibt die breite der Scrollbar an. Hier kann man per ListBox1.Canvas.TextWidth (String) die Prixelbreite eines Strings bestimmen, oder einfach einen konstanten Integer-Wert angeben. Der vierte Parameter bewirkt in diesem Fall nichts.
Moderiert von jasocul: Beitrag geprüft am 10.05.2006