请问如何实现listbox的自动下滚？？

Question

rt，
richedit 和 memo都可以，但是 如何让listbox呢？
而且后加入的数据要始终在最后，不能反向谢谢~

Answer 1

listbox1.Perform(WM_VSCROLL,SB_LINEDOWN,0);

Answer 2

//补充，用SB_BOTTOM替换SB_LINEDOWN，否则滚动到中间的位置添加后不会移到最后
procedure TForm1.Button1Click(Sender: TObject);
begin
  ListBox1.AddItem(IntToStr(GetTickCount), nil);
  ListBox1.Perform(WM_VSCROLL, SB_BOTTOM, 0);
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  ListBox1.AddItem(IntToStr(GetTickCount), nil);
  ListBox1.ItemIndex := ListBox1.Count - 1;
end;

Answer 3

发现了一个更好的方法。int n = this->m_listBox.AddString("New String");
this->m_listBox.SetCaretIndex(n, 0);这样，ListBox控件就自动滚到那一项，直到该项完全可见。如果是用this->m_listBox.SetCurSel(n);的话，会有蓝色选择条出现。