VPF::TListView - Форум программистов

Akella

Дата 16.4.2005, 12:25 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Выполняя поиск по TListView нужно прокрутить программно до найденного элемента.
Свойство ViewStyle:=vsList;
если так

Код


  lvFiles.ScrollBy(lv.Index,0);

то получается не очень-то получается.

Код



procedure TfmFindTlf.bbFindClick(Sender: TObject);
Var
 _f:integer;
 lv:TListItem;
begin
  with fmMain do begin
    lvFiles.ClearSelection;
    For _f:=0 to lvFiles.Items.Count-1 do begin
      lv:=lvFiles.Items[_f];
      if Pos(edFind.Text,lv.Caption) <> 0 then begin
        if lv <> nil then begin
          lvFiles.Selected:= lv;
          lvFiles.ScrollBy(lv.Index,0);//нужно прокрутить
          exit;
        end;
      end;//if Pos(edFind.Text,lvFiles.Items[_f].Caption) <> 0 then begin
    end;//for
  end;//with
  ShowMessage('Телефон не найден');
end;

Внимание, вопрос! КАК?

Это сообщение отредактировал(а) dsergey - 16.4.2005, 12:33

z-END

Дата 16.4.2005, 12:50 (ссылка)

(нет голосов)

Загрузка ...

прафесар™

Профиль
Группа: Комодератор
Сообщений: 3014
Регистрация: 13.3.2003
Где: Венья, Пиетари

Репутация: 11
Всего: 102

Код


   if lv <> nil then 
      begin
          lvFiles.Selected := lvFiles.Items[_f];
          lvFiles.Items[_f].MakeVisible (false);
          exit;
        end;

Попробуй так...

Это сообщение отредактировал(а) z-END - 16.4.2005, 12:51

--------------------

Каждый чилавек пасвоему праф...а памоему НЕТ!

Akella

Дата 16.4.2005, 12:58 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Решил немного по другому

Код


procedure TfmFindTlf.bbFindClick(Sender: TObject);
Var
 _f:integer;
 lv:TListItem;
begin
  with fmMain do begin
    lvFiles.ClearSelection;
    For _f:=0 to lvFiles.Items.Count-1 do begin
      lv:=lvFiles.Items[_f];
      if Pos(edFind.Text,lv.Caption) <> 0 then begin
        if lv <> nil then begin
          lvFiles.Selected:= lv;
          lvFiles.Selected.MakeVisible(false);
          exit;
        end;
      end;//if Pos(edFind.Text,lvFiles.Items[_f].Caption) <> 0 then begin
    end;//for
  end;//with
  ShowMessage('Телефон не найден');
end;

Добавлено @ 13:00

Цитата(z @ 16.4.2005, 12:50)

lvFiles.Selected := lvFiles.Items[_f];
lvFiles.Items[_f].MakeVisible (false);

MakeVisible относится к TListItem поэтому необязательно так делать, ведь selected тоже относится к TListItem.

Всё равно благодарю, за мысль в правильном направлении.
Добавлено @ 13:01
Alex, не хотел бы внести в FAQ?

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »