高分求助！！如何让listbox的垂直滚动条始终显示在最下边？

Question

程序运行的时候需要动态的向listbox里面增加item，我想达到效果：新增加的item始终能看见，这就需要让滚动条在listbox的最下面。（但是现在加完之后滚动条总是在最上面 ！）
或者定位listbox的焦点（focus）也可以吧！
希望能得到你的帮助！
谢谢！！

Answer 1

listbox1.Selected[10]:=true;
你可以将10改为新的ITEMINDEX

Answer 2

每加一条，ListBox.ItemIndex := ListBox.Items.Count-1

Answer 3

listbox1.Items.Add('zw');
listbox1.Selected[listbox1.Items.Count-1]:=true;
新增加的item始终能看见

Answer 4

添加完后加一句
Listbox1.Perform(WM_VSCROLL,SB_BOTTOM,0);

Answer 5

SetScrollPos(listbox1.handle,SB_HORZ,10000,true);
不过这样并不滚动文字，所以用
SendMessage(listbox1.Handle,WM_VSCROLL,SB_BOTTOM,0);

Answer 6

或者用
SetScrollPos/SetScrollInfo
和
ScrollWindow
搭配

Answer 7

或者用
SetScrollPos/SetScrollInfo
和
ScrollWindow
搭配
msdn的Using Scroll Bars里有例子
Microsoft OLE DB Provider for SQL Server 错误 '80040e31' 超时已过期 /Expert/reply.asp，行105