ListView и ScrollBar

[Gregor]

Добрый день. Поможите с таким вопросов. Есть ListView. Строки добавляются сверху. т.е item := ListView.Items.Insert(0). При добавлении выделенная строка смещается на позицию вниз. Как сделать так чтобы при добавлении новой строки я оставался на выделенной строке, но ScrollBar создавал видимость того, что строки добавляются сверху.т.е перемещался на нужную позицию. Спасибо!

[mihali4]

Первое, что пришло в голову:

procedure TForm1.Button1Click(Sender: TObject);
var InsertItem: TListItem;
begin
  with ListView1 do
  begin
  InsertItem := Items.Insert(0);
  if SelCount=0 then
  ItemIndex:=0;
  SetFocus;
  end;
  InsertItem.Caption := IntToStr(p);
  Inc(p);
  ListView1.Scroll(0, 20);
end;

[Gregor]

Спасибо! Кажется это то что надо!)

16:31

А в случае если OwnerData = true? чтот не получается.
делаю так:

var
  zList: TStringList;

procedure TForm1.FormCreate(Sender: TObject);
begin
  zList := TStringList.Create
end;

procedure TForm1.ListView1Data(Sender: TObject; Item: TListItem);
begin
  Item.Caption := zList[Item.index];
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
   zList.Insert(0, IntToStr(zList.Count));
   with ListView1 do
     Items.Count := zList.Count;
     Scroll(0, 20);
     ItemIndex := ItemIndex + 1;
     ListView1.Refresh;
end;

После какого то момента начинает съезжать.
Заметил такую странность. если делаю ListView.ItemIndex := любое число в доп. приделах, то все нормально работает. Если же выделяю мышью и снова начинаю добавлять, то съезжает.