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

← →
rolex (2005-08-05 14:50) [0]

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

← →
begin...end © (2005-08-05 14:53) [1]

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

← →
Adder © (2005-08-05 15:15) [2]

Можно попробовать что-то вроде этого:
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;

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

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

> rolex (05.08.05 15:19) [3]

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

← →
rolex (2005-08-05 15:32) [5]

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

Как в ListView список прокрутить в самый конец? Найти похожие ветки