|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
Полосы прокрутки в ListBox
Привет всем! Помогите пожалуйста! нужно удалить вертикальные полосы прокрутки в компоненте ListBox. Среди свойств такого не нашел.в интернете видел статью, как удалить скролбары в DrawGrid, делал по анологии но не помогло.
|
#2
|
||||
|
||||
Может как-нибудь так...
Код:
SetWindowLong(ListBox1.Handle, GWL_STYLE, GetWindowLong(ListBox1.Handle, GWL_STYLE) and not (WS_HSCROLL or WS_VSCROLL)); |
#3
|
|||
|
|||
Так:
Код:
ShowScrollBar(ListBox1.Handle, SB_VERT, False); |
#4
|
|||
|
|||
Может я что то неправильно делаю, но ни первый, ни второй вариант не работают(((..Я добовлял эти строки в событие OnCreate.
Попробую объяснить немного по-другому. Значит, имеется листбокс. С помощью меню ->добавить или по нажатию кнопки добавить в лист бокс загружается строка с путем к файлу. Как известно, изначально скролбаров нету, они появляются после того, когда добавляемая запись не помещается в размеры листбокса, т.е. 10 записей добавляются нормально, скролбаров нету, как только добавляю 11-ую, они появляются.. Всем заранее огромнейшее спасибо |
#5
|
||||
|
||||
Цитата:
ScrollBar исчезает, однако при прокрутке списка появляется опять. Можно ли от этого тоже избавиться? Delphicode.org - справочник Delphi |
#6
|
|||
|
|||
спасиб хоть на этом)) уже лучше. Я ее в таймер засунул...
|
#7
|
|||
|
|||
А у меня вопрос как включить горизонтальную полосу??
Прописываю ShowScrollBar(ListBox1.Handle, SB_Horz, True); в Form Create Привыводе в листбок снова отключается. |