Форум: "Начинающим";
Текущий архив: 2007.07.29;
Скачать: [xml.tar.bz2];

Вниз

Treeview   Найти похожие ветки 

← →
gentos   (2007-07-04 17:35) [0]

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

---

← →
Gadenysh   (2007-07-04 17:43) [1]

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

---

← →
gentos   (2007-07-04 17:51) [2]

> 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;

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

---

← →
Johnmen ©   (2007-07-04 17:53) [3]

HasChildren:=True;

---

← →
gentos   (2007-07-04 18:05) [4]

> Johnmen


thanks

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


---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2007.07.29;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.045 c