Текущий архив: 2005.08.28;
Скачать: CL | DM;
Вниз
Как в 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, то что будет?)
← →
begin...end © (2005-08-05 15:27) [4]> rolex (05.08.05 15:19) [3]
См. в справке описание метода TListItem.MakeVisible.
← →
rolex (2005-08-05 15:32) [5]C английским туговато, смотрел уже.
Страницы: 1 вся ветка
Текущий архив: 2005.08.28;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.054 c
