Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 04.04.2008, 22:16   #1
Air
Участник клуба
 
Аватар для Air
 
Регистрация: 30.04.2007
Сообщений: 1,307
По умолчанию ListView - программно сфокусировать...

Здравствуйте.
Просмотрел около 10 тем но подобного не нашол.

В ListView (в 1 колонке) у меня список процессов.
В Edit я пишу имя процесса и жму "найти", я почти угадал, но...
Код:
var f:TListItem; t:integer;
begin
f:=TListItem.Create(ListView1.Items);
f.Caption:=edit1.Text; //поиск по 1 колонке
t:=ListView1.Items.IndexOf(f);
//t:=30;
ListView1.ItemIndex:=t;
//form3.FocusControl(ListView1);
end;
В "t" я проверял индекс, он равен -1.
Если пишу "t:=30;" то выделяется Item=30, но он находится внизу, а список не листается.

- Как найти нужный Item?
- Как листать список?

Спасибо.
Всё гениальное - просто!
Air вне форума Ответить с цитированием
Старый 05.04.2008, 22:56   #2
Alter
Старожил
 
Аватар для Alter
 
Регистрация: 06.08.2007
Сообщений: 2,183
Лампочка

Например вот так, фокус сам ставится, прокрутка до выделеного автоматом:

Код:
Procedure FindCap(LV :TListView; Capton :String);
var
  lvItem: TListItem;
begin
 IF LV=Nil Then EXIT;
  lvItem := LV.FindCaption(0, // Стартовый индекс строки
                           Capton, // Искомая строка
                           True,
                           True,
                           False);
  if lvItem<>nil then
  begin
    LV.Selected := lvItem;
     lvItem.MakeVisible(True);
    LV.SetFocus;
  end;
end;
Alter вне форума Ответить с цитированием
Старый 06.04.2008, 00:23   #3
Air
Участник клуба
 
Аватар для Air
 
Регистрация: 30.04.2007
Сообщений: 1,307
По умолчанию

Благодарю Вас за код.
Всё гениальное - просто!
Air вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
ListView Лубышев Общие вопросы Delphi 6 18.07.2008 16:04
ListView aesoem Общие вопросы Delphi 4 05.07.2008 15:55
ListView Старовъръ Компоненты Delphi 8 02.07.2008 19:08
ListView Witaliy Общие вопросы Delphi 1 01.05.2008 20:46
ListView Terran Общие вопросы Delphi 2 05.04.2008 23:15