Использование TTreeView в run-time

← →
prorok2 (2003-02-20 22:14) [0]

Доброго времени суток, мастера!
Подскажите, как использовать компонент TTreeView в run-time. То есть как добавить узел, как добавить подузел этого узла, удалить их, как пройтись по всему дереву в поисках нужной ветки. И еще. Как можно было бы привязать узел к уникальному номеру записи в таблице базе данных. Буду очень благодарен за пример или хотя за намек на него.Спасибо.

← →
mrcat © (2003-02-20 22:19) [1]

>>как добавить узел, как добавить подузел этого узла,
AddChild

>>удалить их
ThreeView.Items[MyIndex].Delete

>>Как можно было бы привязать узел к уникальному номеру записи в таблице базе данных.
ThreeView.Items[MyIndex]. Data

← →
prorok2 (2003-02-20 22:22) [2]

Так у свойства AddChild есть параметр TTreeNode. Что это такое и с чем его едят?

← →
mrcat © (2003-02-20 22:27) [3]

>>Так у свойства AddChild есть параметр TTreeNode.
это дочерняя ветка для твоего TTreeNode, например:

var fChild: TTreeNode; ... fChild := AddChild("", "prorok2"); fChild.ImageIndex := 2; fChild.SelectedIndex := 2; ... TreeView.Items.AddChild(fChild);

← →
mrcat © (2003-02-20 22:30) [4]

поправка:

var
fChild: TTreeNode;
...
fChild := AddChild( nil, "prorok2");
fChild.ImageIndex := 2;
fChild.SelectedIndex := 2;
...
TreeView.Items.AddChild(fChild, "");

← →
prorok2 (2003-02-20 22:35) [5]

Пишу так:
var fChild: TTreeNode;
begin
fChild.Create( nil);
fChild.Item[0].Text := "prorok2";
fChild.ImageIndex := 2;
fChild.SelectedIndex := 2;
TreeView1.Items.AddChild(fChild, "Text");
end;

Что должно быть вместо nil?
Эта конструкция компилится, но не выполняется из-за того, как я понимаю, что объект не создан.Правильно?

← →
Song © (2003-02-20 22:37) [6]

>>это дочерняя ветка для твоего TTreeNode,
Если быть точнее, TTreeNode - это класс любой ветки.

← →
Song © (2003-02-20 22:39) [7]

2prorok2 (20.02.03 22:35)
А чего ты создаёшь экземпляр своей переменной? Надо создавать экземпляр класса!

← →
prorok2 (2003-02-20 22:42) [8]

2Song

так?
fChild := TTreeNode.Create(<а что здесь?>);

← →
prorok2 (2003-02-20 22:42) [9]

Что-то я ляпнул :(

← →
mrcat © (2003-02-20 22:43) [10]

Song © (20.02.03 22:37)

ветка в контексте AddChild. так сойдет? =)

← →
prorok2 (2003-02-20 22:56) [11]

var fChild: TTreeNode;
a: TTreeNodes;

fChild.Create(a);
fChild.Text := "prorok2";
fChild.ImageIndex := 2;
fChild.SelectedIndex := 2;
TreeView1.Items.AddChild(fChild, "Text");

и падает на последней строке

← →
prorok2 (2003-02-20 22:57) [12]

Что я не так делаю или не делаю?

fChild.Create(a); fChild.Text := "prorok2"; fChild.ImageIndex := 2; fChild.SelectedIndex := 2; TreeView1.Items.AddChild(fChild, "Text");

нафига Create? Привел же работающий код.

можно так:
fChild := TreeView1.Items.AddChild(TreeView1.Selected, "Text");

← →
prorok2 (2003-02-20 23:11) [15]

2mrcat >Привел же работающий код.
fChild := AddChild(nil, "prorok2"); // не работающий код

fChild := TreeView1.Items.AddChild("", "prorok2");

← →
prorok2 (2003-02-20 23:15) [17]

2 ION T
А как добавить подузел добавленного узла?

← →
prorok2 (2003-02-20 23:19) [18]

fChild := TreeView1.Items.AddChild(nil, "prorok2");
fChild := TreeView1.Items.AddChild(fChild, "prorok3");

работает.....второе добавляет подузел!!!!!
Всем спасибо...суть я уловил

Использование TTreeView в run-time Найти похожие ветки