как сделать автоскролинг чтобы активный итем был виден ?

[chaplin.u@gmail.com]

При добавлении новых итемов в листбокс у него появляются скролы но самого итема не видно. как сделать автоскролинг чтобы активный итем был виден ?

CurListBoxItem->SetFocus() не делает этого.

[Равиль Зарипов (ZuBy)]

20 минут назад, chaplin.u@gmail.com сказал:

При добавлении новых итемов в листбокс у него появляются скролы но самого итема не видно. как сделать автоскролинг чтобы активный итем был виден ?

CurListBoxItem->SetFocus() не делает этого.

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

 

[chaplin.u@gmail.com]

как я понимаю ты предлагаешь поменять ему индекс а мне это нежелательно т.к. у меня там ещё бежит цикл ListBox1->ItemByIndex(i) и плюс сортировка.

если я по дороге начну индексы менять у меня начнётся свистопляска.

[Rusland]

chaplin.u@gmail.com, индекс у item-а не изменится, просто выделится последний item в листбоксе

Изменено 28 июля, 2016 пользователем Rusland

[chaplin.u@gmail.com]

попробовал. работает не сразу. где то на 3-4 раз.

[enatechno]

4 часа назад, chaplin.u@gmail.com сказал:

При добавлении новых итемов в листбокс у него появляются скролы но самого итема не видно. как сделать автоскролинг чтобы активный итем был виден ?

Активный итем или последний добавленный? На дельфи "скроллировать" можно с помощью TListbox.ScrollToItem(Item). Если последний добавленный, то сначала добавляем, а потом скролл к нему. Например вот так:
 

  Listbox1.BeginUpdate;
  try
    aListBoxItem := TListBoxItem.Create(Listbox1);
    aListBoxItem.Text := 'text ' + random(500).ToString;
    Listbox1.AddObject(aListBoxItem);
  finally
    Listbox1.EndUpdate;
  end;
  Listbox1.ScrollToItem(aListBoxItem);

 

Изменено 28 июля, 2016 пользователем enatechno

[chaplin.u@gmail.com]

Вау ! То что доктор прописал !!!

Сенька бери мяч !