Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.07.07;
Скачать: CL | DM;

Вниз

Ламерский вопрос про 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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.017 c
14-20260
Snake2000
2003-06-19 14:21
2003.07.07
СЕССИЯ - Шпоры


7-20320
orion_st
2003-04-24 18:27
2003.07.07
OLE Automation


8-20167
altarasjuk
2003-03-21 21:15
2003.07.07
Canvas dose not allow drawing.


7-20336
Yanis
2003-04-24 14:29
2003.07.07
Как написать на экране?


14-20225
KIE
2003-06-19 13:14
2003.07.07
Настройки сети