如何加上ListBox的垂直滚动条？(50分)

A

Adnil

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-26

• #1

ListBox的垂直滚动条只有在Item数超过它的高度的时候才出现，如何是它在任何时候都能显示垂直滚动条呢？
例如将TMemo的ScrollBars属性设置成ssVertical时候的那种效果。

 

A

antic_ant

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-26

• #2

查下消息，发送一个消息就可以实现了

 

A

Adnil

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-26

• #3

To antic_ant：
你说了等于没说。 ：（

 

卷

卷起千堆雪tyn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-26

• #4

或者你直接添加一个垂直的滚动条，建立关联，也OK.

 

A

Adnil

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-26

• #5

考虑过，但是这样一旦ListBox自己的滚动条出来以后不就有两个滚动条了？

 

A

Adnil

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-26

• #6

但是只有在item数达到一定数量超出边界的时候滚动条才出现，而我需要滚动条永久保持，跟item数无关。

我需要这样肯定是有一定理由的，否则哪有这个闲工夫去讨论这个问题。

可以看看outlook express的拼写检查对话框，里面就有这样的一个listbox。

谢过。

 

X

xianjun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-28

• #7

从TListBox继承一个下来吧：
TMyListBox = class(TListBox)
protected
procedure CreateParams(var Params: TCreateParams); override;
end;

procedure TMyListBox.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.Style := Params.Style or LBS_DISABLENOSCROLL;
end;

 

X

xianjun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-28

• #8

发消息是不行的了， 不过没想到用SetWindowLong也不行， 真是想不通!
SetWindowLong(ListBox1.Handle, GWL_STYLE,
GetWindowLong(ListBox1.handle, GWL_STYLE) or LBS_DISABLENOSCROLL);

 

A

Adnil

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-30

• #9

xianjun，你的方法接受。

其实我自己也找到了，通过spy++查找控件的属性得来的。
最终代码如下：
TADListBox = class(TListBox)
protected
procedure CreateParams(var Params: TCreateParams); override;
end;
procedure TADListBox.CreateParams(var Params: TCreateParams);
begin
inherited;
with Params do
begin
Style := Style or LBS_DISABLENOSCROLL or WS_VSCROLL;
Style := Style and not WS_HSCROLL;
end;
end;

感谢各位的支持！