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

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

TreeView - сломать голову или как правильно работать [D7, XP]

Mozgan ©   (2006-06-11 12:35:00) 

Здравствуйте мастера!

Помогите разобраться с treeview1 :(
Изучаю компонент treeview. Но дается трудно:(
Значит так. Есть такая структура:
1
2
3
4
5

предположим я выбираю значение 3 и хочу туда записать например 66 и т.д.
Короче, заносить значения туда, где выделено
Вот кусок моего кода:
=============================================
//добавим первый элемент
procedure TForm1.Button1Click(Sender: TObject);
var
 One, Two: TTreeNode;
begin
 s1:= Edit1.text;
 s2:= Edit2.text;
 with tree.Items do begin
   one:= add(nil,s1);
 end;
end;

//добавим элемент к выделенному элементу
procedure TForm1.Button2Click(Sender: TObject);
var
 One, Two: TTreeNode;
 i: integer;
begin
 s1:= Edit1.text;
 s2:= Edit2.text;
 with tree.Items do begin
 for i:=0 to tree.Items.Count-1 do begin
 two:= addchild(tree.Selections[i],s2);
 end;
end;
end;
=============================================

Должно получится что-то вроде
Чет не получается :(
1
2
3  66
4  4
5  100

Помогите плиз советом !!!!

---

Mozgan   (2006-06-11 15:13:00) [1]

Ребята! мне все стало ясно как день сегодняшний! СПАСИБО ОГРОМНОЕ!!!

---

Handle   (2006-06-11 14:48:00) [2]

procedure TForm1.TreeView1Click(Sender: TObject);
begin
case TreeView1.Selected.Count of
0: Button1.Enabled:= false;
1: Button1.Enabled:= true;
end;
end;

---

Virgo_Style   (2006-06-11 14:37:00) [3]

Mozgan   (11.06.06 14:11) [3]
действие булевского типа

ты имеешь в виду фукцию of boolean? Запросто.

---

Mozgan   (2006-06-11 14:11:00) [4]

Все понятно, спасибо большое! :)
Мастера, и ещё один маленький вопрос - последний.
Предположим, я что выбрал i-ый элемент из списка,
можно ли выполнить какое-либо действие булевского типа?
Даже не знаю, как правильно сказать :)

---

Handle   (2006-06-11 13:33:00) [5]

procedure TForm1.Button1Click(Sender: TObject);
begin
TreeView1.Items.Add(nil, Edit1.text);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
TreeView1.Items.AddChild(TreeView1.Selected, Edit2.text);
end;

---

unknown   (2006-06-11 13:21:00) [6]

//добавим элемент к выделенному элементу
var
 i: integer;
begin
 for i := 0 to Pred(Tree.SelectionCount) do
   Tree.Items.AddChild(Tree.Selections[i], 'ABC');
end;

---

Наверх