请问ListBox添加内容后该如何使它自动向下卷轴？

Question

如题，比如我listbox.items.add(...)之后，如何使listbox内容向下滚动，选中最下方刚添加的那一行呢？

Answer 1

ListBox1.ItemIndex := ListBox1.Items.Count;

Answer 2

procedure TForm1.bsSkinButton1Click(Sender: TObject);
begin
listbox1.Items.Add('abc');
listbox1.ItemIndex:=listbox1.Count-1;
end;

Answer 3

Sorry:
应该是：ListBox1.ItemIndex := ListBox1.Items.Count - 1;

Answer 4

给个思路：procedure TForm1.Button1Click(Sender: TObject);
begin
  ListBox1.Items.Add('AA');
  ListBox1.Items.Add('BB');
  ListBox1.Selected[1] := True; //最后添加的一行‘BB’
end;