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

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

Treeview

gentos ©   (2007-07-04 17:35:00) 

Мастера, у меня динамическая тривюшка, я хочу чтобы при открывании узла все подузлы появлялись с '+' а не так себе, как можна это реализовать ?

---

gentos   (2007-07-04 18:05:00) [1]

> Johnmen


thanks

 for i:=0 to trv.Items.Count-1 do begin
    trv.Items[i].HasChildren:= true;
 end;


---

Johnmen   (2007-07-04 17:53:00) [2]

HasChildren:=True;

---

gentos   (2007-07-04 17:51:00) [3]

> Gadenysh  

а можна более конкретно, пробовал вот так вот

procedure Tmainfrm.trvChange(Sender: TObject; Node: TTreeNode);
var
   q: TOracleQuery;           // AddChildDirectoryQuery
   q2: TOracleQuery;
   TempNode: TTreeNode;
begin
  if (node.getFirstChild <> nil) and (node.getFirstChild.Text = 'a') then
  node.getFirstChild.delete;
  if node.Count = 0 then begin
      q := PTreeview.SelChild(PNodeData(trv.Selected.Data).Id_USER);
      q.Execute;
      if (q.RowCount<>0) then begin
      while (not q.Eof) do
        begin
          AddChildDirectory(node,q.FieldAsString('fio'),q.FieldAsString('id'),q.FieldAsStr ing('parent'),false);
                q2 := PTreeview.SelChild(q.FieldAsInteger('id'));
                q2.Execute;
                if (q2.RowCount<>0) then begin
                  while (not q2.Eof) do
                    begin
                      AddChildDirectory(node,q2.FieldAsString('fio'),q2.FieldAsString('id'),q2.FieldAs String('parent'),false);
                      q2.Next;
                    end;
                 q2.Close; q2.Free;
                end;
          q.Next;
        end;
        q.Close; q.Free;
      end;
      dummy
  end;

не пашет, пашет , но плюсиков нету :), а хотелось бы с плюсами

---

Gadenysh   (2007-07-04 17:43:00) [4]

добавлять dummy-ноды

---

Наверх