Показать сообщение отдельно
  #4  
Старый 18.06.2016, 07:51
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,036
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Ну уж куда подробнее.
В папке программы создаешь папочку HTML.
Там раскладываешь файлы по папкам. Файлы - *.html
При старте программы получаешь путь к корневой папке своих файликов:
Код:
var
  RootPath : String;
begin
  RootPath := ExtractFilePath((Application.ExeName) + 'HTML\';
Далее через FindFirst/FindNext/FindCloise (примеров в инете полно) создаешь соотв. структуру в кмопоненте TTReeView на формочке.
Следующим шагом пишешь эвент на обработку выбора узла в дереве - вычисление пути к файлу по дереву. Т.е. ты получаешь относительный путь к файлу. Далее
Код:
WebBrawser1.Navigate('file://'+RootPath+LocalFilePath);
В итоге в компонент будет загуженна выбранная таблица.
Ответить с цитированием