Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Отключение скроллбаров

Страницы: < 1 2
CodeMaster © (2009-02-02 13:22:00)
Задаю глупый вопрос: Как убрать скроллбары у TListBox.
TListBox храняться в динамическом массиве, и нужно у каждого из них их убрать скроллеры.
ShowScrollBar не помогает
Нашёл в Интернете вот такой пример c TlistView, кстати он работает и на TListBox
FListViewWndProc: TWndMethod;
procedure ListViewWndProc(var Msg: TMessage);
implementation
....
procedure TForm1.ListViewWndProc(var Msg: TMessage);
begin
ShowScrollBar(ListView1.Handle, SB_HORZ, FShowHoriz);
ShowScrollBar(ListView1.Handle, SB_VERT, FShowVert);
FListViewWndProc(Msg); // process message
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
FShowHoriz := True; // show the horiz scrollbar
FShowVert := False; // hide vert scrollbar
FListViewWndProc := ListView1.WindowProc; // save old window proc
ListView1.WindowProc := ListViewWndProc; // subclass
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
ListView1.WindowProc := FListViewWndProc; // restore window proc
FListViewWndProc := nil;
end;

Мне кажется нужно как-то отредактировать этот код должным образом. Подскажите ПЛЗ. Зарание спасибо

Amoeba (2009-02-02 17:38:00) [21]

> вместе с отключением скроллбара и перестал работать получать
> информацию ScrollInfo

Без скроллбара ListBox скроллируется?

CodeMaster (2009-02-02 17:11:00) [22]
Появилась проблема вместе с отключением скроллбара и перестал работать получать информацию ScrollInfo, что делать не подскажите?*

CodeMaster (2009-02-02 16:58:00) [23]
Спасиб уже не надо, понял как это сделать: Params.Style:= Params.Style - WS_VSCROLL;

Страницы: < 1 2

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »