Цитата:
|
Сообщение от Nurlan
if listbox1.ItemIndex = 0 then
webbrowser1.Navigate('C:\электроный учебник\web.htm');
|
Думаю лучше заменить if на case, чтоб не было много if'ов:
Код:
case listbox1.ItemIndex of
0:webbrowser1.Navigate('C:\электроный учебник\web.htm');
1:...
2:...
...
end;
На счет пути: Вы все файлы (html) должны хранить рядом с вашей программой (или не посредственной в ней самой). Ну если будете хранить допустим все html файлы в папке с вашей программой, то просто пишите так:
Код:
ExtractFilePath(ParamStr(0)); - эта функция вернет путь к папке с вашими файлами, а потом просто обращайтесь к этим файлам по их именам...
Пример к вашему случаю:
Код:
...
webbrowser1.Navigate(ExtractFilePath(ParamStr(0)) + 'web.htm');