[Wital]

Привет всем! Помогите пожалуйста! нужно удалить вертикальные полосы прокрутки в компоненте ListBox. Среди свойств такого не нашел.в интернете видел статью, как удалить скролбары в DrawGrid, делал по анологии но не помогло.

[GLFox]

Может как-нибудь так...

Код:

SetWindowLong(ListBox1.Handle, GWL_STYLE,
  GetWindowLong(ListBox1.Handle, GWL_STYLE) and not (WS_HSCROLL or WS_VSCROLL));

[Nyctos Kasignete]

Так:

Код:

ShowScrollBar(ListBox1.Handle, SB_VERT, False);

[Wital]

Может я что то неправильно делаю, но ни первый, ни второй вариант не работают(((..Я добовлял эти строки в событие OnCreate.
Попробую объяснить немного по-другому. Значит, имеется листбокс. С помощью меню ->добавить или по нажатию кнопки добавить в лист бокс загружается строка с путем к файлу. Как известно, изначально скролбаров нету, они появляются после того, когда добавляемая запись не помещается в размеры листбокса, т.е. 10 записей добавляются нормально, скролбаров нету, как только добавляю 11-ую, они появляются..
Всем заранее огромнейшее спасибо

[Dux]

Сообщение от Nyctos Kasignete

Так:

Код:

ShowScrollBar(ListBox1.Handle, SB_VERT, False);

ScrollBar исчезает, однако при прокрутке списка появляется опять. Можно ли от этого тоже избавиться?

[Wital]

спасиб хоть на этом)) уже лучше. Я ее в таймер засунул...

[ColorDb]

А у меня вопрос как включить горизонтальную полосу??
Прописываю
ShowScrollBar(ListBox1.Handle, SB_Horz, True); в Form Create
Привыводе в листбок снова отключается.

[s0Creator]

Для горизонтального есть свойство ScrollWidth - если оно больше ClientWidth то появится горизонтальная прокрутка

[ColorDb]

Отлично! Заработало!