Навигация по ListBox

[Applod]

Здравствуйте, подскажите как реализовать навигацию по ListBox(кнопки назад-вперед), просто что бы переключался выделенный индекс, и осуществлялся вывод документа,(каждому индексу присвоен свой документ
if (ListBox1.ItemIndex = 1) then
WebBrowser1.Navigate(GetCurrentDir + '\book\1ved.htm') в WebBrowser1.

[Freezer]

Кнопки в смысле TButton или клавиши со стрелками?

[Applod]

Да, без разницы, главное что бы работала(но лучше конечно через TButton)

[Пепел Феникса]

if (ListBox1.ItemIndex = 1) then
WebBrowser1.Navigate(GetCurrentDir + '\book\1ved.htm')

и так у вас весь листбокс?

вам надо просто менять ListBox1.ItemIndex.

[Freezer]

procedure TForm1.btnNextClick(Sender: TObject);
begin
  if ListBox1.ItemIndex < ListBox1.Count - 1 then  begin
    ListBox1.ItemIndex := ListBox1.ItemIndex + 1;
    ListBox1Click(sender);
  end;
end;

А на ListBox1Click делаешь свою загрузку в браузер, аналогично делаешь кнопочку btnBack

[Applod]

if ListBox1.ItemIndex < ListBox1.Count - 1 then
поясните пожалуйста что это за условие?

[Applod]

И у меня еще вопрос,
как сделать поиск по ключевому слову, слово вводится в Edit,
происходит сравнение значения Edit и ListBox(Идет как содержание) нажимаю на Button и производится вывод в WebBrowser.
?

[Freezer]

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

Поясни пожалуйста, зачем нужна "ListBox1Click(sender)",

для того чтобы когда ты просто выбираешь в ListBox1 у тебя тоже загружалась страница

[Applod]

когда добавляю "ListBox1Click(sender)"
такая ошибка: [Hint] Unit1.pas(78): Variable 'i' is declared but never used in 'TForm1.Button4Click'
что это?

[Freezer]

если не знаешь английского то пользуйся переводчиком:
[Hint] - это не ошибка а подсказка
а ошибка - error

Variable 'i' is declared but never used - переводится как "Переменная 'i' объявлена но не используется", это значить что ты в var'е ее объявил но в теле процедуры ни разу не использовал и ее можно убрать.