обьясните как связать TreeView и WebBrowser

[Above_men]

Всем доброго времени суток...

Прошу вашей помоши по TreeView...

Пишу программу справочник, Нужно чтоб выбраный элемент в TreeView загружался в TWebBrowser форме.... В качестве выводимой информации береться html страничка с папки с программой...

До этого работал с listbox'ом... там у меня все получалось... список файлов в листбоксе загонялось в массивы... и если выбран 1 элемент массива.. то открывалась нужная страница в вебброузер элементе...

Тут нужно тоже самое... только я никада раньше неработал с TreeView и никак все не могу 2 день допереть как это сделать...

Знающие люди... помогите пожалуйста.. а то 2 день несплю =(((

[Neeter]

Можете проверять так, при onClick у TreeView

procedure TForm6.TreeView1Click(Sender: TObject);
begin
 if TreeView1.Selected.Text = '1' then WebBrowser1.Navigate('http:\\www.programmersforum.ru\');
 if TreeView1.Selected.Text = '2' then WebBrowser1.Navigate('http:\\google.ru\');
end;

Но это очень долго, лучше создайте ini-файл, например такой:

[Urls]
1=http:\\www.programmersforum.ru\
2=http:\\google.ru\

Добавьте в Uses модуль IniFiles
И потом пишите:

procedure TForm6.TreeView1Click(Sender: TObject);
var
 urls: TIniFile;
begin
 //if TreeView1.Selected.Text = '1' then WebBrowser1.Navigate('http:\\www.programmersforum.ru\');
 //if TreeView1.Selected.Text = '2' then WebBrowser1.Navigate('http:\\google.ru\');
 urls := TIniFile.Create('D:\Urls.ini');
 try
  if urls.ValueExists('Urls', TreeView1.Selected.Text) then
   WebBrowser1.Navigate(urls.ReadString('Urls', TreeView1.Selected.Text, ''))
  else
   Application.MessageBox('Такого URL в файле нет!', 'Ошибка!', MB_OK or MB_ICONSTOP);
 finally
  urls.Free;
 end;
end;

Тут идет проверка на заголовки элементов. Так что вам надо в ini-файле сделать такие же заголовки, как и в TreeView

[mihali4]

У TreeView к каждому итемсу есть возможность прицепить OBJECT, посмотрите в хэлпе пример TreeView.Items.AddObject или TreeView.Items.AddChildObject.
Никаких ини-файлов, никакой посторонней байды - все однозначно подцепляется к итемсу дерева, может быть использовано, изменено, удалено...

[Alter]

А ещё есть Data, тип Pointer. Можете структуры или ещё что хранить.

[shaman888]

mihali4,
я попробовал вот так, чтобы открытый в webbrowser файл записывался в treeview, но почему то не работает

 CaptionStr:String;
 NewNode:TTreeNode;
begin
 CaptionStr:='';
 if not InputQuery('Ввод имени элемента', 'Введите заголовок 
элемента',CaptionStr) then exit;

 NewNode:=TreeView1.Items.AddObject(Treeview1.Selected, CaptionStr, pointer(opendialog1.FileName));
 if NewNode.Parent<>nil then
  NewNode.ImageIndex:=1;

[shaman888]

Мало знаком с delphi и мало что пинимаю в этом. В чём ошибка?