Форум: "Начинающим";
Текущий архив: 2006.07.02;
Скачать: [xml.tar.bz2];
Вниз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]Ребята! мне все стало ясно как день сегодняшний! СПАСИБО ОГРОМНОЕ!!!
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.07.02;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.01 c