TreeView - сломать голову или как правильно работать

← →
Mozgan (2006-06-11 12:35) [0]

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

Помогите разобраться с 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

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

← →
unknown © (2006-06-11 13:21) [1]

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

← →
Handle (2006-06-11 13:33) [2]

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;

← →
Mozgan (2006-06-11 14:11) [3]

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

← →
Virgo_Style © (2006-06-11 14:37) [4]

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

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

← →
Handle (2006-06-11 14:48) [5]

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

← →
Mozgan (2006-06-11 15:13) [6]

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

TreeView - сломать голову или как правильно работать Найти похожие ветки