| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Работа с TreeView

Lizz ©   (2005-12-04 10:01:00) 

Нужно написать кулинарную книгу используя TreeView
-Русская кухня
 - закуски
 - горячие блюда
-Другая кухня
 - закуски
 -горячие блюда
Что-то в этом роде, с возможностью добавления новых записей.
Пока ничего не получается, может у кого есть подобные программы или
примеры работы с TreeView.

---

Lizz   (2005-12-05 20:10:00) [1]

Спасибо за помощь

---

Сайбель Алексей   (2005-12-04 23:49:00) [2]

Вот статья - очень хорошоий пример работы TreeView + СУБД
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=488

---

Tonich   (2005-12-04 21:00:00) [3]

блин я чего-то и не присмотрелся к твоему коду, ты ж почти так же и сделал ))

---

Tonich   (2005-12-04 20:58:00) [4]

ну начить так можно сделать так

для того что бы добавить корневой, то


procedure TForm1.AddRootClick(Sender: TObject);
begin
 with TreeView.Items do
  Add(nil,'Parent');
end;


где вместо слова 'Parent' - подставляешь то что тебе надо, ну например из эдита который ты кинешь на форме.

для дочернего итема

procedure TForm1.AddChildClick(Sender: TObject);
begin
  with TreeView.Items do
    AddChild(currentNode,'child');
end;


где  currentNode:TTreeNode - допустим глобальная переменная ее получаешь из


procedure TForm1.TreeViewClick(Sender: TObject);
begin
currentNode :=  TTreeView(Sender).Selected;
end;


ну а что касается текста в мемо, то у каждого узла есть Object записываешь туда просто указатель на путь к твоему текстовому файлу, и по клику на итем просто открываешь это файл в мемо

---

Lizz   (2005-12-04 17:16:00) [5]

Кода пока ещё почти и нет вот всё

procedure TForm1.N2Click(Sender: TObject);
begin
Application.Terminate;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
MyTreeNode1, MyTreeNode2: TTreeNode;
begin
with TreeView1.Items do
begin
  MyTreeNode1 := Add(nil, Edit1.Text);
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
root: TTreeNode;
begin
with TreeView1 do
begin
 Root := Selected;
 AddChild(root,'cvbd');
end;
TreeView1.Items.
end;

Я незнаю как создавать корневой Item с вводимым вручную названием и потом добавлять к нему SubItem и так далее и присваивать созданым SubItem'aм текстовые файлы, чтоб на нажатию на SubItem в Memo появлялось содержимое файла

---

Tonich   (2005-12-04 10:37:00) [6]

Покажи код того , что у тебя уже получилось (или не получилось)

---

Наверх