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

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

TreeNode [D7, WinXP]

Checist [root] ©   (2005-03-06 10:44:00) 

Я пытаюсь всунуть node в выделенныю ветвь, но лезет ошибка, как это правильно сделать?

var
 Node: TTreeNode;
 Mode: TNodeAttachMode;
 NText: string;
begin
if Url.Text = '' then Exit;
Node.ImageIndex := 1;
Node.SelectedIndex := 3;
NText := Url.Text;
if (Favor.Selected.ImageIndex = 0) or (Favor.Selected.Index = 0) then Mode := naAddChild
else Mode := naAdd;
Favor.Items.AddNode(Node, Favor.Selected, NText, nil, Mode);
Url.Clear;
end;

---

Checist [root]   (2005-03-06 11:13:00) [1]

Благодарю... Совсем забыл!

---

MU   (2005-03-06 11:03:00) [2]

Node.ImageIndex := 1;
Здесь ошибка?
а Node := TTreeNode.create(...) не надо делать

---

Наверх