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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 19.11.2011, 18:09   #1
Applod
Пользователь
 
Регистрация: 19.11.2011
Сообщений: 17
Вопрос Электронный учебник

Здравствуйте!
Нужна помощь, курсовой проект.
Задача:
Создание электронного учебника. Предусматривается несколько разделов, ввод базы данных, поиск по ключевому слову.

Проект выполнен процентов на 40 %, подскажите как реализовать навигацию в ListBox, с помощью Button (Прокрутка, Вперед Назад) что бы при переходе на какой либо раздел в ListBox, открывался соответствующий документ в WebBrowser.

Так же подскажите, как реализовать поиск по ключевому слову в Listbox, опять же Вводим раздел нажимаем поиск, если данный раздел будет обнаружен, вывести документ в WebBrowser.

Заранее спасибо.

Файлы Проекта:
http://files.mail.ru/3R0RZ9

P.S. Буду очень презнателен если напишете в личку hameluon@mail.ru
Applod вне форума Ответить с цитированием
Старый 19.11.2011, 18:14   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
подскажите как реализовать навигацию в ListBox, с помощью Button (Прокрутка, Вперед Назад) что бы при переходе на какой либо раздел в ListBox, открывался соответствующий документ в WebBrowser.
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
 with ListBox1 do begin
  if ItemIndex>0 then ItemIndex:=ItemIndex-1;
   WebBrowser1.Navigate(Items[itemindex]);
 end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 with ListBox1 do begin
  if ItemIndex<Count then ItemIndex:=ItemIndex+1;
   WebBrowser1.Navigate(Items[itemindex]);
 end;
end;
Цитата:
поиск по ключевому слову в Listbox
Через его метод IndexOf например
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
не может ли мне ктонить помочь создать электронный учебник в делфи,либо поделииться готовым исходником? w1ny Свободное общение 13 16.10.2017 16:29
Электронный учебник! Onekey Общие вопросы Delphi 19 29.09.2010 11:29
электронный учебник med1st Общие вопросы C/C++ 4 23.04.2010 23:09
Электронный учебник tsergey Софт 18 20.04.2009 01:41