Treeview

[Dgriz]

Delphi

при нажатии на одном из вкладок, а точнее item
загружался rtf файл в richview

например если дерево
-Кулинария -> 1ое -> Борш(б)
|-> 2ое -> Макароны(м)
чтобы при нажатии на Б и М, происходила загрузка файла)

можно поподробней, а то я новичок в этом)

[SNUPY]

Теперь по подробнее =))):

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
{ продцедура вызывается при выборе узла в древе
 ВАЖНО! При клике уже выбранного срабатывать не будет =) }
begin
{Проверяем уровень узла (нода)
В моей реализации узлы 1-ого уровня являются теме кто задает файл для РичЭдита
В принципе, если по этой "статье" проходят все узлы не имеющие детей то можно 
реализовать по другому (смотри ниже)
}
  if Node.Level = 1 then
  begin
{ дергаем адрес файла из свойства Data нода 
про это по подробнее:
http://www.az-design.ru/index.shtml?Support&SoftWare&Delphi/D3/SB19Data
}
    RichEdit1.Lines.LoadFromFile(String(Node.Data));
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
{нуу.. в with наверно знаком =))
по подробнее
http://www.delphibasics.ru/With.php
}
  with TreeView1.Items do
  begin
{
cоздаю с начала нод 0-ого уровня: AddChild(nil, '1ое')
потом создаю его "ребенка", причем с данными
}
    AddChildObject(AddChild(nil, '1ое'), 'БОРШ', PChar('d:\temp\1.rtf'));
  end; {with}
end;

где 'd:\temp\1.rtf' адрес твоего файла


Пример для всех узлов без "детей"

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
  if (Node.getFirstChild = nil) and (Node.data <> nil) then
  begin
    RichEdit1.Lines.LoadFromFile(String(Node.Data));
  end;
end;