Скачать: CL | DM;

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

← →
ksa2002 ©   (2004-04-07 08:10) [0]

компонент (Tree View)
Как добавить новую ветку, как добавить новую подветку ?
Как отличить ветку от под ветки в уже существующем дереве ?
Или подскажите где можно глянуть пример или описание на
данный компонент (в хелпе слишком скудно)

---

← →
Фикус ©   (2004-04-07 08:47) [1]

Посмотри Add, AddChild, там есть пример

---

← →
Леприкон ©   (2004-04-07 09:07) [2]

procedure TForm1.Button1Click(Sender: TObject);
begin
 if TV.Selected<>nil then
   TV.Items.Insert(TV.Selected,"New")
 else
   TV.Items.Add(nil,"New");
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 if TV.Selected<>nil then
   TV.Items.AddChild(TV.Selected,"NewChild")
 else
   ShowMessage("Select the item");
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 if TV.Selected<>nil then
   if TV.Selected.HasChildren then
     ShowMessage("This item has "+IntToStr(TV.Selected.Count)+" childs")
   else
     ShowMessage("This item has no children")
 else
   ShowMessage("No item is selected");
end;


TV:TTreeView

---

← →
ksa2002 ©   (2004-04-07 09:13) [3]

Вопрос

   MyTreeNode1 := Add(nil, "RootTreeNode1"); { Add a root node }

   { Add a child node to the node just added }
    AddChild(MyTreeNode1,"ChildNode1");

   {Add another root node}
   MyTreeNode2 := Add(MyTreeNode1, "RootTreeNode2");

Почему при создание второй ветки (основной)  MyTreeNode2
после Add указано MyTreeNode1 хотя можно указать и nil ?

---

← →
ksa2002 ©   (2004-04-07 09:15) [4]

Походу  это указание после какой ветки вставлять новую....

---

← →
Bel ©   (2004-04-07 10:51) [5]

> ksa2002 ©

Все ответы на эти вопросы есть в справке. И далеко не скудно, а кратко, но понятно.

---

← →
ksa2002 ©   (2004-04-07 13:51) [6]

Как можно определить количество родительских ветвей(основных) ?

---

← →
Семен Сорокин ©   (2004-04-07 14:02) [7]

ksa2002 ©   (07.04.04 13:51) [6]
перебором при условии Level = 0
посмотри еще GetNextSibling

---

← →
[lamer]Barmaglot ©   (2004-04-07 14:03) [8]

Приблизительно так -


procedure TForm1.Button1Click(Sender: TObject);
const
 count:        integer=0;
var
 k:    integer;
begin
For k:=0 to TreeView1.Items.Count-1 do
 begin
 If TreeView1.Items.Item[k].Parent=nil then inc(count);
 end;
Edit1.Text:=inttostr(count);
end;


---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.022 c