о TreeView и WebBrowser

[Kaifun]

Создаю Эл.Учебник(дипломка)

1) Как в сделать навигацию по TreeViever, чтоб по нажатию на Button перекидывала на след запись, и наоборот..
2) У меня в TreeView дерево идёт как 2.1, 2.2, 2.3 и т.д...
можноли как нибуть привязать кним теги для поиска и организовать поиск по темам?

3) Можно ли какнибуть запоковать все html страницы программы в 1 архив?

[Виталий Желтяков]

2) Как в сделать навигацию по TreeViever, чтоб по нажатию на Button перекидывала на след запись, и наоборот..

Form1.TreeView1.Items[1].GetNext;
Form1.TreeView1.Items[1].GetPrev;

Можно их укоротить или еищё чтонить по шаблону...

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
  WebBrowser1.Navigate(WideString(GetCurrentDir())+' /BOOK/'+TreeView1.Selected.Text+'.htm' );
end;

[Kaifun]

Сообщение от Виталий Желтяков

2) Как в сделать навигацию по TreeViever, чтоб по нажатию на Button перекидывала на след запись, и наоборот..

Form1.TreeView1.Items[1].GetNext;
Form1.TreeView1.Items[1].GetPrev;

Можно их укоротить или еищё чтонить по шаблону...

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
  WebBrowser1.Navigate(WideString(GetCurrentDir())+' /BOOK/'+TreeView1.Selected.Text+'.htm' );
end;

СПС. Очень укоротился код!..

А вот с навигациеи не получилось =\ никаких деиствии не происходит..

[Виталий Желтяков]

Form1.TreeView1.Items[1].GetChildNext;
Form1.TreeView1.Items[1].GetChildPrev;

Попробуйте так. Методы будут зависить от структуры вашего дерева.