![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как у TListBox убрать линейку прокрутки?
Вид © (2005-08-23 03:24:00)А то дизайн портит. Для прокрутки используются более симпатичные элементы управления.
Джо (2005-08-23 03:41:00) [1]
> [2] Вид (23.08.05 03:32)
> Тебя за то что не в потрепаться постишь.
А нужно в "потрепаться"? Извини, забыл у тебя спросить.
Впрочем, дело твое, хочешь плоди уродцев с плохим интерфейсом.
По сабжу. Задачу можно решить написанием наследника TListBox с перекрытым CreateParams. Например, так:
TUglyListBox = class (TListBox)
protected
procedure CreateParams(var Params: TCreateParams); override;
end;
implementation
procedure TUglyListBox.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.Style := Params.Style and not WS_VSCROLL
end;
Вид (2005-08-23 03:32:00) [2]
> Джо © (23.08.05 03:25) [1]
> Фтопку.
Тебя за то что не в потрепаться постишь.
Джо (2005-08-23 03:25:00) [3]Фтопку.