listbox与scrollbar(10分)

A

apiaor

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #1

我往listbox中加内容时有时内容比较长，后面的不能被看到，想加一个左右的滚动条，
怎么加？？？？？？

 

L

love_fy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-14

• #2

api

 

A

apiaor

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-26

• #3

什么api具体些！！！！

 

C

coolbaby

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-26

• #4

提示：
旧问题里有
我前不久刚查过
给分，：）

 

W

wjh_wy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-26

• #5

下次告诉你

 

B

BDFan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-26

• #6

下面的代码解决
Var
i,maxWidth:Integer;
Begin
MaxWidth:=0;
For i:=0 to listbox1.items.count-1 do
if MaxWidth<listbox1.canvas.TextWidth(listbox1.Items) then
MaxWidth:=listbox1.Canvas.TextWidth(listbox1.Items);
SendMessage(listbox1.Handle,LB_SETHORIZONTALEXTENT,MaxWidth+1,0)

End;