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

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

Здравствуйте, подскажите плз, как программно установить ListView


Layner ©   (2005-05-31 11:51:00) 

На опред строку, например в ListView(vsReport) 1000 строк, надо перейти к 500, и видеть ее в ListView, как это можно реализовать?
Есть что то - ListView1.ItemIndex:=500;, событие какое то происходит, но скролы у ListView стоят на месте.


Kerk   (2005-06-01 09:56:00) [1]

Юрий Зотов ©   (01.06.05 1:25) [6]
ListView.Items[500].MakeVisible(False)


Хм.. а я с LVM_ENSUREVISIBLE делал... RTFMить надо почаще :))))


Layner   (2005-06-01 09:47:00) [2]

Юрий Зотов
Спасибо, ещё лучше! :)


Юрий Зотов   (2005-06-01 01:25:00) [3]

ListView.Items[500].MakeVisible(False)

И все.


Layner   (2005-05-31 16:49:00) [4]

ПОнял, благодарю!!


begin...end   (2005-05-31 15:56:00) [5]

> Layner ©   (31.05.05 13:03) [3]

var
 N: Integer; // Индекс строки, до которой надо прокрутить
begin
 with ListView do
   Scroll(0, высота_одного_элемента * (N - TopItem.Index))
end.

--------------------
Sorry, I'm drunk now


Layner   (2005-05-31 13:03:00) [6]

begin...end
Спасибо, сделал как ниже, т.е. на опр. строку никак не сместить, а только координатами задавать смещение?
ListView.TopItem.Top:=100;
ListView.Scroll(1,100);


begin...end   (2005-05-31 12:01:00) [7]

+ TListView.Scroll.


begin...end   (2005-05-31 11:56:00) [8]

TListView.TopItem


Наверх

Титульная страница Поиск, карта сайта Написать письмо