listbox简单问题(送50)

Question

listbox不断添加内容 如何让listbox始终现实最后一行

Answer 1

procedure TForm1.Button4Click(Sender: TObject);
begin
  listBox1.Items.Add('测试aaaa');
  ListBox1.ItemIndex := ListBox1.Items.Count-1;
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
begin
  for i:=1 to 1000 do
  begin
    listbox1.Items.Add(inttostr(i));
    listbox1.TopIndex:=i-1;  //用这个
    sleep(100);
    application.ProcessMessages;
  end;
end;