Форум: "Потрепаться";
Текущий архив: 2003.07.07;
Скачать: [xml.tar.bz2];

Вниз

Ламерский вопрос про TreeView   Найти похожие ветки 

← →
AndyNik   (2003-06-21 19:57) [0]

Я извеняюсь за такой вопрос.
Скинте код как создавать дерево.



поговорка. Если нам ни кто не поможет, то и мы ни кого не пощадим.

---

← →
Makhanev A.S.   (2003-06-21 20:08) [1]

Делал так:

procedure TfrmUpdater.ReadUpdateXML;
procedure RecureseAdd(Nodes: IXMLNodeList; ParentNode: TTreeNode);
var
i: Integer;
NewParentNode: TTreeNode;
begin
for i := 0 to Nodes.Count-1 do
begin
NewParentNode := trvUpdater.Items.AddChild(ParentNode, Nodes[i].LocalName);
if (Nodes[i].ChildNodes.Count > 0)
and (Nodes[i].ChildNodes[0].LocalName <> "") then
begin
{if NewParentNode.Text = "Keywords" then
ShowMessage((Nodes[i].ChildNodes[0].Text)); }
RecureseAdd(Nodes[i].ChildNodes, NewParentNode);
end;
end;
end;
var
i: Integer;
begin
with xmlUpdater do
begin
//создаём
RecureseAdd(ChildNodes, nil);
//раскрываем первый элемент
if trvUpdater.Items.Count > 0 then
begin
trvUpdater.Items[0].Expand(True);
if trvUpdater.Items[0].HasChildren then
trvUpdater.Selected := trvUpdater.Items[0].Item[0];
end;
end;
end;


---

← →
Song   (2003-06-21 21:08) [2]

With TTreeView.Create(Self) Do Parent:=Self;

---

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

Форум: "Потрепаться";
Текущий архив: 2003.07.07;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.011 c