List box

← →
{ент (2007-11-21 15:49) [0]

У меня есть Лист бокс у в него заноситься текст, подскажите как сделать так что бы если текст не влезал по ширине то появлялась горизонтальная полоса прокрутки

← →
Johnmen © (2007-11-21 15:55) [1]

ScrollBars

← →
@!!ex © (2007-11-21 16:01) [2]

> [1] Johnmen © (21.11.07 15:55)

НЕт такого свойства у TListBox"a

← →
Johnmen © (2007-11-21 16:08) [3]

> @!!ex © (21.11.07 16:01) [2]
> НЕт такого свойства у TListBox"a

А мне по-барабану :)

← →
Igor Zorkov © (2007-11-21 16:12) [4]

> {ент (21.11.07 15:49)

var i, MaxWidth: integer; begin ListBox1.Items.Add("У меня есть Лист бокс у в него заноситься текст, подскажите как сделать так что бы если текст не влезал по ширине то появлялась горизонтальная полоса прокрутки"); MaxWidth := 0; for i := 0 to ListBox1.Items.Count - 1 do if MaxWidth < ListBox1.Canvas.TextWidth(ListBox1.Items.Strings[i]) then MaxWidth := ListBox1.Canvas.TextWidth(ListBox1.Items.Strings[i]); SendMessage(ListBox1.Handle, LB_SETHORIZONTALEXTENT, MaxWidth+2, 0);

Юзай Hint

> Dennis I. Komarov © (21.11.07 16:35) [5]
>
> Юзай Hint
>

См. здесь: http://www.delphikingdom.com/asp/viewitem.asp?catalogid=762

List box Найти похожие ветки