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 ©

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

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

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

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;

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