Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.032 c
1-1123482790
rolex
2005-08-08 10:33
2005.08.28
Как в TreeView загрузить дерево папок?


3-1121700666
ali_tash
2005-07-18 19:31
2005.08.28
Как задекларировать BASED ON переменную


3-1121344401
Брат
2005-07-14 16:33
2005.08.28
Проблема с IBScript


4-1121056430
Untermensch
2005-07-11 08:33
2005.08.28
Как заставить систему выйти диалапом в инет и обратно.


6-1116131265
A№t0№
2005-05-15 08:27
2005.08.28
Определение подключения к интернету