Главная страница
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.021 c
1-20102
mao
2003-06-17 08:26
2003.07.07
Невидимый текстовый курсор в RichEdit


14-20297
Всеволод Соловьёв
2003-06-20 17:02
2003.07.07
Дети пишут богу :)


1-20103
dimon1979
2003-06-24 14:39
2003.07.07
Встроенный ассемблер


1-20136
Ahmad K
2003-06-24 19:25
2003.07.07
ShellExecute(handle, open , http://www.de.ru , nil, nil, SW_????


3-19972
alecs
2003-06-11 19:07
2003.07.07
Как защитить данные в базе InterBase?