Дерево папок

[Stanislav]

Здравствуйте!
У меня такой вопрос как можно сделать такое же дерево папок скажем как в delphiworld на словах какие компоненты необходимы и так далее куды вообще рыть.....
Спасибо.

[ZhekON]

А TreeView неустраивает тебя?.. если тебе нужно сделать оболочку каждой строки то помоему там можно работать с графикой строк...

[Stanislav]

а не подскажите как сделать следующие предположим в этих папках лежат html файлы и при их выборе он грузилься в webbrowsere ? мне так кажеться что нужно работать со свойством onchange но незнаю как.......

[andrey4623]

Некорректно сформулировано.
Если требуется загрузка HTML страниц при выборе папки, то надо смотреть событие OnChange, в котором, например, производить поиск всех файлов в данной папке.

[Stanislav]

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

Некорректно сформулировано.
Если требуется загрузка HTML страниц при выборе папки, то надо смотреть событие OnChange, в котором, например, производить поиск всех файлов в данной папке.

верно не так поставил вопрос: в папках лежат htm файлы и при щелчке на файле htm он грузить в webbrowsere я так понял для этого необходимо узнать его путь в delphiworld я нашел следующие :

function SrNodeTree(pTreeNode: TTreeNode; var sRuta: string): string; 
begin 
  sRuta := pTreeNode.Text + '\' + sRuta;
  if pTreeNode.Level = 0 then Result := sRuta
  else
    Result := SrNodeTree(pTreeNode.Parent, sRuta);
end;

procedure GetDirectories(Tree: TTreeView; Directory: string;
Item: TTreeNode; IncludeFiles: Boolean);
var 
  SearchRec: TSearchRec; 
  ItemTemp: TTreeNode; 
begin 
  Tree.Items.BeginUpdate; 
  if Directory[Length(Directory)] <> '\' then Directory := Directory + '\';
  if FindFirst(Directory + '*.*', faDirectory, SearchRec) = 0 then 
  begin 
    repeat 
      if (SearchRec.Attr and faDirectory = faDirectory) and
      (SearchRec.Name[1] <> '.') then 
      begin 
        if (SearchRec.Attr and faDirectory > 0) then 
          Item := Tree.Items.AddChild(Item, SearchRec.Name); 
        ItemTemp := Item.Parent; 
        GetDirectories(Tree, Directory + SearchRec.Name, Item, IncludeFiles); 
        Item := ItemTemp; 
      end 
      else if IncludeFiles then 
        if SearchRec.Name[1] <> '.' then 
          Tree.Items.AddChild(Item, SearchRec.Name); 
    until FindNext(SearchRec) <> 0; 
    FindClose(SearchRec); 
  end; 
  Tree.Items.EndUpdate; 
end;

procedure TForm1.TreeView1Click(Sender: TObject);
var
  sPath: string;
begin
  label1.Caption := SrNodeTree(TreeView1.Selected, sPath);


end;

Но столкнулься еще кое с чем: он к концу пути добовляет слеш, а во-вторых как зделать так чтоб нахождение этого пути работало тогда когда я щелкаю по htm файлу? а так он этот путь показывает когда щелкаешь и по папкам и по файлам...

[andrey4623]

Опять-же в событии OnChange. А на случай, если на конце есть слеш, то перед загрузкой файла делать проверку
if Copy(str,Length(str)-1,1)= '\' then
str := Copy(str,1,Length(str)-1)

[Stanislav]

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

Опять-же в событии OnChange. А на случай, если на конце есть слеш, то перед загрузкой файла делать проверку
if Copy(str,Length(str)-1,1)= '\' then
str := Copy(str,1,Length(str)-1)

я правильно понял ? т.е если обрабатываем событие onchange то будут учитываться клики только по файлам находящиеся в папках этого дерева? или же щелчек по папке тоже будет интерпритироваться как нахождения пути?

[Stanislav]

Есть еще у кого какие варианты поделитесь пожайлусто.....