Как убрать полосу прокрутки

← →
Djvirus (2003-04-17 08:20) [0]

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

← →
Song (2003-04-17 09:55) [1]

ShowScrollBar()

← →
DjVirus (2003-04-17 11:39) [2]

Да полоса прокрутки пропадает с помощью ShowScrollBar(), но она снова появляется при прокручивании списка. Как сделать так, чтобы она не появлялась. Или может эту функцию надо поместить в какую-нибудь процедуру?

← →
крот (2003-04-17 12:18) [3]

GetWindowLong
SetWindowLong

← →
DjVirus (2003-04-17 12:33) [4]

Если можно, то по точней. Как пользоваться этими GetWindowLong и SetWindowLong.

← →
Guerriero (2003-04-17 15:05) [5]

Надо убрать у ListBox стиль WS_VSCROLL, например:
type
TListBoxEx= class(TListBox)
protected
procedure CreateParams(var Params: TCreateParams); override;
end;

procedure TListBoxEx.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.Style := Params.Style xor WS_VSCROLL;
end;

← →
DjVirus (2003-04-18 10:28) [6]

У меня в программе вот так:
type
TForm1 = class(TForm)
Image1: TImage;
btnCrack: TYuSoftButton;
btnUp: TYuSoftButton;
..................................
btnDown: TYuSoftButton;
ListBox1: TListBox;
ksoOfficeHint1: TksoOfficeHint;
procedure btnQuitClick(Sender: TObject);
procedure btnMinimizeClick(Sender: TObject);
.............................................
procedure btnDownClick(Sender: TObject);
procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;

Вот куда вставить и какой код, чтобы эта полоса прокрутки пропала навсегда в моем приложении у листбокса. Только сильно не кричите на меня, я только начинаю программировать.

← →
Kelvin (2003-04-21 09:21) [7]

>Guerriero (17.04.03 15:05)
При написании такого кода при запуске программы выдается ошибка: "Class TListBox not found"

← →
Крот (2003-04-21 11:34) [8]

procedure TMainForm.RemoveScrollBar; var Style: LongInt; begin Style := GetWindowLong(ListBox.Handle, GWL_STYLE); Style := Style xor WS_VSCROLL; SetWindowLong(ListBox.Handle, GWL_STYLE, Style); end;

Вызвать в самом начале, до любых действий с ListBox

Как убрать полосу прокрутки Найти похожие ветки