Скачать: CL | DM;

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

← →
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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.011 c