Кака заставить TListBox не показывать полосу прокрутки?

← →
Maxus (2003-02-26 19:36) [0]

Возникла следующая проблема: мне надо заставить компонент типа TListBoxне отображать полосу прокрутки. Вобщем все мои усилия и потуги над решением этой проблемы пока не увенчались успехом.
Если кто может помочь, то буду очень благодарен.

← →
Maxus (2003-02-26 19:38) [1]

...пардон, очепятка вышла, надо заставить TListBox не отображать полосу прокрутки

← →
Song (2003-02-26 21:01) [2]

ShowScrollBar()

← →
Романов Р.В. (2003-02-26 21:30) [3]

По хорошему никак. Придется писать потомка.

type
TNewListBox = class(TListBox)
private
FShowVScrollBar: Boolean;
procedure SetShowVScrollBar(const Value: Boolean);
public
procedure CreateParams(var Params: TCreateParams); override;
published
constructor Create(AOwner: TComponent); override;
property ShowVScrollBar: Boolean read FShowVScrollBar write SetShowVScrollBar;
end;

{ TNewListBox }

constructor TNewListBox.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FShowVScrollBar := True;
end;

procedure TNewListBox.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
if not FShowVScrollBar then
Params.Style := Params.Style and not WS_VSCROLL;
end;

procedure TNewListBox.SetShowVScrollBar(const Value: Boolean);
begin
if FShowVScrollBar <> Value then
begin
FShowVScrollBar := Value;
RecreateWnd;
end;
end;

← →
Maxus (2003-02-27 18:49) [4]

БОЛЬШОЕ СПАСИБО, ВСЕ ПОЛУЧИЛОСЬ!!!

← →
Maxus (2003-02-27 20:35) [5]

Товарищи полосу прокрутки я погасил, спасибо, но у меня возникла другая проблема : мне надо заставить ListBox прокручиваться соответственно изменяющейся позиции, скроллбара, или хотя бы просто прокручивать свое содержимое?

← →
Юрий Зотов (2003-02-28 00:21) [6]

Мотор я заглушил, спасибо, но теперь у меня возникла другая проблема - машина ехать перестала. Что делать?

← →
malkolinge (2003-02-28 13:12) [7]

теперь другой вопрос в тему : как заставить листбок показывать ГОРИЗОНТАЛЬНУЮ ПОЛОСУ ПРОКРУТКИ !

← →
Романов Р.В. (2003-02-28 16:49) [8]

← →
Maxus (2003-02-28 21:29) [9]

ЕЩЕ РАЗ ВСЕМ БОЛЬШОЕ СПАСИБО - ОПЯТЬ ПОЛУЧИЛОСЬ
to Романов Р.В. - да вообще-то читаю, но хоть убей не видел этого свойства :(( Рылся рылся по хелпу и в упор не видел. 8(

Кака заставить TListBox не показывать полосу прокрутки? Найти похожие ветки