Скачать: CL | DM;

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

---

← →
Dennis I. Komarov ©   (2007-11-21 16:35) [5]

Юзай Hint

---

← →
Amoeba ©   (2007-11-21 16:45) [6]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.017 c