procedure TForm1.Button1Click(Sender: TObject);
begin
if TreeView1.Selected <> nil then
begin
TreeView1.Items.AddChild(TreeView1.Selected, Edit1.Text);
TreeView1.Selected.Expanded := True;
end
else
TreeView1.Items.Add(nil, Edit1.Text);
end;
Работа с TreeView
Всем привет!!!
Подскажите пожалуйста, как мне правильно работать с treeView, т.е. как добавить туда строку и подстроку с помощью кнопки.
Нашёл материал по этому но получилось только сохранить это дерефо в текстовый файл и загрузить его.
А вот как сделать чтобы пользователь мог самостоятельно добавлять в него не получается :(
и ещё момент, как сделать так чтобы при выборе какого либо элемента из этого дерева, выводилась информация в memo или ещё какое нибудт поле вывода
Подскажите пожалуйста, как мне правильно работать с treeView, т.е. как добавить туда строку и подстроку с помощью кнопки.
Нашёл материал по этому но получилось только сохранить это дерефо в текстовый файл и загрузить его.
А вот как сделать чтобы пользователь мог самостоятельно добавлять в него не получается :(
и ещё момент, как сделать так чтобы при выборе какого либо элемента из этого дерева, выводилась информация в memo или ещё какое нибудт поле вывода
Цитата: Cool Xacker
Всем привет!!!
Подскажите пожалуйста, как мне правильно работать с treeView, т.е. как добавить туда строку и подстроку с помощью кнопки.
Нашёл материал по этому но получилось только сохранить это дерефо в текстовый файл и загрузить его.
А вот как сделать чтобы пользователь мог самостоятельно добавлять в него не получается :(
и ещё момент, как сделать так чтобы при выборе какого либо элемента из этого дерева, выводилась информация в memo или ещё какое нибудт поле вывода
Подскажите пожалуйста, как мне правильно работать с treeView, т.е. как добавить туда строку и подстроку с помощью кнопки.
Нашёл материал по этому но получилось только сохранить это дерефо в текстовый файл и загрузить его.
А вот как сделать чтобы пользователь мог самостоятельно добавлять в него не получается :(
и ещё момент, как сделать так чтобы при выборе какого либо элемента из этого дерева, выводилась информация в memo или ещё какое нибудт поле вывода
можно посмотреть здесь пример на С++, но в паскаль не сложно переписывается
Простейшее:
поставь на форме TTreeView (TreeView1), TEdit (Edit1) и TButton (Button1). На клике по последнему напейши такую процедурку:
поставь на форме TTreeView (TreeView1), TEdit (Edit1) и TButton (Button1). На клике по последнему напейши такую процедурку:
Код:
Также у каждого элемента дерева есть свойство Data - указатель. С помощью него можно привязывать к элементу дерева какую-либо инфу и работать с ней.
Цитата: mfender
Простейшее:
поставь на форме TTreeView (TreeView1), TEdit (Edit1) и TButton (Button1). На клике по последнему напейши такую процедурку:
поставь на форме TTreeView (TreeView1), TEdit (Edit1) и TButton (Button1). На клике по последнему напейши такую процедурку:
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
if TreeView1.Selected <> nil then
begin
TreeView1.Items.AddChild(TreeView1.Selected, Edit1.Text);
TreeView1.Selected.Expanded := True;
end
else
TreeView1.Items.Add(nil, Edit1.Text);
end;
begin
if TreeView1.Selected <> nil then
begin
TreeView1.Items.AddChild(TreeView1.Selected, Edit1.Text);
TreeView1.Selected.Expanded := True;
end
else
TreeView1.Items.Add(nil, Edit1.Text);
end;
спасибо конечно, но я так пробовал, всё прекрасно работает, ещё раз благодарю, но как добавить не только пункт, но и подпункт (на то оно и дерево, чтобы иметь какую то иерархию)??? вот в чём вопрос :confused:
Цитата: Cool Xacker
спасибо конечно, но я так пробовал, всё прекрасно работает, ещё раз благодарю, но как добавить не только пункт, но и подпункт (на то оно и дерево, чтобы иметь какую то иерархию)??? вот в чём вопрос :confused:
Код:
TreeView1.Items.AddChild(TreeView1.Selected, Edit1.Text);
PS: ключевое слово AddChild
Всё всем огромнейшее спасибо, разобрался. :)
А можно ли их сравнивать???
Т.Е.: Имеется одно дерево с определённой информацией, а потом появилось другое дерево (с обновлённой информацией - что то добавилось или изменилось) и надо чтобы программа автоматически проверила эти значения и если необходимо заменила старую информацию на новую :confused:
Т.Е.: Имеется одно дерево с определённой информацией, а потом появилось другое дерево (с обновлённой информацией - что то добавилось или изменилось) и надо чтобы программа автоматически проверила эти значения и если необходимо заменила старую информацию на новую :confused:
Цитата: Cool Xacker
А можно ли их сравнивать???
Т.Е.: Имеется одно дерево с определённой информацией, а потом появилось другое дерево (с обновлённой информацией - что то добавилось или изменилось) и надо чтобы программа автоматически проверила эти значения и если необходимо заменила старую информацию на новую :confused:
Т.Е.: Имеется одно дерево с определённой информацией, а потом появилось другое дерево (с обновлённой информацией - что то добавилось или изменилось) и надо чтобы программа автоматически проверила эти значения и если необходимо заменила старую информацию на новую :confused:
есть у TreeNode свойство Data (в С++ это пустой тип void* и записывай туда что хочешь) можно в цикле пробежаться по всем нодам дерева и сравнивая это свойство, делать выводы, что изменилось (Child появились новые и т.п.)
Цитата: oxotnik333
есть у TreeNode свойство Data (в С++ это пустой тип void* и записывай туда что хочешь) можно в цикле пробежаться по всем нодам дерева и сравнивая это свойство, делать выводы, что изменилось (Child появились новые и т.п.)
Извини если я занудничаю, а можно кодом это показать мне???
У меня на форме есть TreeView и DBGrid. На главной форме есть TTreeView(рабочий, добовляет, удаляет,редактирует записи дерева) и на дочерной форме DBGrid, и общая база данных access, как сделать так что бы при выделении определённого узла в TTreeView отображалась соответсвующая запись в DBGrid???
Мало данных. Нужно уточнить:
1. Какой конкретно TreeView?
2. Каким образом TreeView завязан с датасетом?
UPD. А, вчитался. Первый вопрос отпадает. Второй остаётся только догадываться.
1. Какой конкретно TreeView?
2. Каким образом TreeView завязан с датасетом?
UPD. А, вчитался. Первый вопрос отпадает. Второй остаётся только догадываться.
извините за тупо описанную проблему,
TTreeView привязан к ADOTable, вот как здесь,
http://www.intuit.ru/department/se/dbpdelphi/10/1.html
только теперь нужно сделать так что бы при выборе узла, в гриде отображалась данная запись, я просто как то туповат и не помимаю, хотелось бы сделать а понять не могу
TTreeView привязан к ADOTable, вот как здесь,
http://www.intuit.ru/department/se/dbpdelphi/10/1.html
только теперь нужно сделать так что бы при выборе узла, в гриде отображалась данная запись, я просто как то туповат и не помимаю, хотелось бы сделать а понять не могу
Цитата: strannik23
TTreeView привязан к ADOTable, вот как здесь,
http://www.intuit.ru/department/se/dbpdelphi/10/1.html
http://www.intuit.ru/department/se/dbpdelphi/10/1.html
Кретинизм какой-то. По-моему, самый простой способ связать TreeView с данными в базе -- добавлять ветви, записывая Bookmark в свойство TTreeNode.Data (или Object?). Для перехода к нужной записи достаточно будет выполнить GotoBookmark.
как бы тупо или ещё как небыло, я прошу помочь мне разобраться с этим, очень нужно
Подскажите как Сохранить созданное дерево TreeView. По нажатию на кнопку Button1 открывался документ либо Excel или текстовый документ и там он отображался
по нажатью на кнопку - открыть документ либо Excel или текстовый документ и записать туда. После этого там он будет отображаться.
Твой К.О.
З.Ы. В связи с усиливающимся кретинизмом задающих вопросы я думаю что может тему закрыть?
Твой К.О.
З.Ы. В связи с усиливающимся кретинизмом задающих вопросы я думаю что может тему закрыть?