Поиск в ListView по первому символу

[Shouldercannon]

Доброго времени суток!
Есть ListView с Items

var
  Item: TListItem;
begin
  Item := ListView1.Items.Add;
  Item.Caption := '1';
  Item := ListView1.Items.Add;
  Item.Caption := 'а';
  Item := ListView1.Items.Add;
  Item.Caption := '3';
  Item := ListView1.Items.Add;
  Item.Caption := 'б';
  Item := ListView1.Items.Add;
  Item.Caption := '5';
  Item := ListView1.Items.Add;
  Item.Caption := 'в';
  Item := ListView1.Items.Add;
  Item.Caption := '7';
  Item := ListView1.Items.Add;
  Item.Caption := 'г';
  Item := ListView1.Items.Add;
  Item.Caption := '9';
  Item := ListView1.Items.Add;
  Item.Caption := 'гг';
  Item := ListView1.Items.Add;
  Item.Caption := 'ггг';
end;

Задача состоит в том, чтобы при активном ListView при нажатии клавиш на клавиатуре в ListView выделялись записи соответствующие этим клавишам. Например нажали на а и у нас выделилась самая первая запись из всего списка начинающегося на а и так далее.

[lomastr_]

Обрабатываете клавиатуру, запоминаете что ввели, делаете поиск, выделяете если нашли.

[Shouldercannon]

procedure TForm1.ListView1KeyPress(Sender: TObject; var Key: Char);
var
  i: Integer;
begin
  for i := 0 to ListView1.Items.Count - 1 do
  begin
    if AnsiUpperCase(Copy(ListView1.Items[i].Caption, 1, 1)) = AnsiUpperCase(Key) then
    begin
      ListView1.ItemIndex := i;
      ListView1.Selected;
      Break;
    end;
  end;
end;

Вопрос. Как сделать скроллинг, если запись найдена в самом конце списка?

[kropotkina-alice]

Сообщение от Shouldercannon

Вопрос. Как сделать скроллинг, если запись найдена в самом конце списка?

Есть такой метод у TListItem - MakeVisible...