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

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

TreeView

olegIvan ©   (2008-11-28 17:01:00) 

Как динамически добовлять запись NewItem и NewSubItem?

---

Ega23   (2008-11-28 17:20:00) [1]



procedure TCustomDBTreeView.AddAllNodes(ParentID: Variant;
 ParentNode: TTreeNode);
var
k:Integer;
CurrNode:TTreeNode;
begin
for k:=0 to FTreeItems.Count-1 do
 begin
   With TDBTreeItem(FTreeItems.Items[k]) do
    begin
      if (Node<>nil) or (ParentFieldValue<>ParentID) then Continue;
      if ParentNode=nil then
        CurrNode:=Items.Add(nil, DisplayFieldValue)
      else
        CurrNode:=Items.AddChild(ParentNode, DisplayFieldValue);
      CurrNode.ImageIndex := ImageIndex;
      CurrNode.SelectedIndex := ImageIndex;
      CurrNode.StateIndex := StateIndex;
      CurrNode.OverlayIndex := OverlayIndex;
      Node:=CurrNode;
      CurrNode.Data:=FTreeItems.Items[k];
      AddAllNodes(KeyFieldValue, CurrNode);
    end; // With
 end; // for
end;


Вызывается


procedure TCustomDBTreeView.ActiveChanged;
begin
 if (FTreeItems.Count>0) and (FWndCreated) then
 begin
   try
     Items.BeginUpdate;
     AddAllNodes(FDataLink.MinParent, nil);
   finally
     Items.EndUpdate;
   end;  
 end;
end;


---

olegIvan   (2008-11-28 17:16:00) [2]

> MyNewTreeNode := MyTreeView.Items.Add[Child](узел-родитель,
>  подпись_нового_узла)

подробнее если можно

---

Сергей М.   (2008-11-28 17:16:00) [3]

Что не понятно ?

---

Сергей М.   (2008-11-28 17:04:00) [4]

MyNewTreeNode := MyTreeView.Items.Add[Child](узел-родитель, подпись_нового_узла)

---

Наверх