Scroll в Listbox

[Linore]

Здравствуйте. Добавляя строки в listbox я столкнулась с проблеммой, что нужная строка все время улетает вниз,тоесть scroll движется вниз, а мне надо постоянно видеть полученную строку, тоесть чтобы scroll listbox двигался вверх. Подскажите пожалуйста как это сделать?

[Hollander]

Выделяй новый элемент:

myListBox.SelectedIndex = myListBox.Items.Count - 1;

[Linore]

Мне не нужно ничего выделять. Мне нужно, чтобы scroll listbox двигался либо вверх.тоесть строки бежали не вниз а вверх автоматически.

[Hollander]

Добавляй в начало списка:

myListBox.Items.Insert(0, element);

[raxp]

а можно и скроллом двигать... пущай себе вниз бегуть...

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 inc(i);
 listbox1.Items.Add(inttostr(i));
 SendMessage(ListBox1.Handle, WM_VSCROLL, 1, 0);
end;