Работа с TreeView

← →
Lizz (2005-12-04 10:01) [0]

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

← →
Tonich © (2005-12-04 10:37) [1]

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

← →
Lizz (2005-12-04 17:16) [2]

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

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 20:58) [3]

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

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

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 записываешь туда просто указатель на путь к твоему текстовому файлу, и по клику на итем просто открываешь это файл в мемо

← →
Tonich © (2005-12-04 21:00) [4]

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

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

← →
Lizz (2005-12-05 20:10) [6]

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

Работа с TreeView Найти похожие ветки