Проблема с прокруткой в ListView

[NaumOff]

Столкнулся тут с такой багой...
Сделал тестовый проект, в onCreate формы заполняю ListView значениями:

  lv1.Items.BeginUpdate;
  lv1.ViewStyle := vsReport;
  for I := 1 to 500 do
    with lv1.Items.Add do
    begin
      caption := IntToStr(i);
      subitems.Add('Колонка 2');
    end;
  lv1.Items.EndUpdate;

После чего делаю прокрутку списка в конец:

 SendMessage(lv1.Handle, WM_VSCROLL, SB_BOTTOM, 0);

Так вот, это сообщение прокручивает список ровно на 100 позиций. WTF?!
Кинул кнопку, в onClick тот же SendMessage-прокрутка идет до конца.
Что за мистика?

[Stilet]

Может refresh вызывать перед посылом сообщения для Lv1?

[Аватар]

Сделайте это в OnShow формы. В OnCreate с Handle формы могут быть проблемы, отсюда и такая прокрутка

[NaumOff]

Не помогло. Грубо говоря работает правильно, если инициатор события-пользователь. Если же в коде вызвать тот же onBtnClick() или onShow, то прокручивает только на 100 строк.

[Stilet]

Немного глуповато, но что если обмануть:

for i:=0 to 10 do  lv1.Scroll(0,10000)

не?

[Аватар]

А так не хочет

  ListView1.ItemIndex:=ListView1.Items.Count-1;

[NaumOff]

Stilet, ваш код работает, скроллит по 100 строк в каждом цикле.
Аватар, так не работает.
Прокручивать можно таким способом:

    ListView1.Items[ListView1.Items.Count - 1].MakeVisible(False);
    ListView1.Scroll(0, 100);

Вторая строка нужна чтобы побороть другой косячок - если есть горизонтальный скроллбар, после прокрутки он перекрывает нижнюю строку. Параметр MakeVisible(PartialOK: Boolean) предназначен для того, чтобы удостовериться полностью видна ли строка, а все равно не работает.
Все же хотелось бы понять, почему ListView при SendMessage так ведет себя.