| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как в ListView список прокрутить в самый конец? [D7, WinXP]

rolex ©   (2005-08-05 14:50:00) 

Делаю так, ListView1.Items.Item[ListView1.Items.Count-1].Selected:=true; не получается.
Style стоит vsreport. Имеется большой список. Нужно к примеру по нажатии button1 прокрутить список в самый конец.

---

rolex   (2005-08-05 15:32:00) [1]

C английским туговато, смотрел уже.

---

begin...end   (2005-08-05 15:27:00) [2]

> rolex   (05.08.05 15:19) [3]

См. в справке описание метода TListItem.MakeVisible.

---

rolex   (2005-08-05 15:19:00) [3]

Спасибо. Всё получилось.
А что делает этот параметр PartialOK? (если поставить true, то что будет?)

---

Adder   (2005-08-05 15:15:00) [4]

Можно попробовать что-то вроде этого:

procedure ListToEnd(const LV:TListView);
begin
   with LV do
   begin
       Items.Item[Items.Count-1].Selected:=true;
       if TopItem.Index < Selected.Index - VisibleRowCount then
       while TopItem.Index <= Selected.Index - VisibleRowCount do Scroll(0,Height div VisibleRowCount )
   end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ListToEnd(ListView1);
end;



---

begin...end   (2005-08-05 14:53:00) [5]

with ListView do
 Items[Items.Count - 1].MakeVisible(False)

---

Наверх