[Ryuji]

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

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


О! и еищё 1 вопрос!

Уменя код программы состоит из сплощных
if sTreeView3.Selected.Text='3.9.7' Then
WebBrowser1.Navigate(WideString(GetCurrentDir())+' /BOOK/3.9.7.htm' )

Можно их укоротить или еищё чтонить по шаблону... т.е. при выборе в TreeView1 текста 1.2.1 загружался 1.2.1.html
?

[Asinkrit]

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

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

Странно, явных средств для этой задачи не нашел в TreeView, поэтому предлогаю свой вариант.

У TreeView все элементы хранятся в одном массиве TreeView.Items, затруднений передвигаться на запись вроде нет, кроме одного, это как определить какой индекс элемента выбран в данный момент, как класс, так и сам Item такой информации не несут. поэтому набросал простую функцию определяющую положение Item-а..

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
  TreeView1.HideSelection:=false;
  TreeView1.Selected:=TreeView1.TopItem; 
end;

function TForm1.GetNodeIndex(const aNode:TTreeNode):Integer;
begin
  for Result:=0 to TreeView1.Items.Count - 1 do
    if TreeView1.Items.Item[Result] = TreeView1.Selected then exit;
  Result:=0;
end;

procedure TForm1.ButtonNextClick(Sender: TObject);
var
  N:Integer;
begin
  N:=GetNodeIndex(TreeView1.Selected);
  if N < TreeView1.Items.Count-1 then
    TreeView1.Selected:=TreeView1.Items.Item[N+1];
end;

procedure TForm1.ButtonLastClick(Sender: TObject);
var
  N:Integer;
begin
  N:=GetNodeIndex(TreeView1.Selected);
  if N < TreeView1.Items.Count-1 then 
    TreeView1.Selected:=TreeView1.Items.Item[N-1];
end;

По поводу 3-го вопроса, если файлы называются так же как и элементы дерева (млм элементы дерева назвать так же как и имена файлов), то можно весь код, заменить одним:

Код:

WebBrowser1.Navigate(WideString(GetCurrentDir())+' /BOOK/'+
  TreeView.Selected.Text+'.htm' );