|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Пару вопросов о TreeView и WebBrowser
Создаю Эл.Учебник(дипломка)
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 ? Последний раз редактировалось Ryuji, 23.04.2010 в 17:35. |
#2
|
|||
|
|||
Цитата:
У 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; Код:
WebBrowser1.Navigate(WideString(GetCurrentDir())+' /BOOK/'+ TreeView.Selected.Text+'.htm' ); |