请教TTreeView中如何动态的添加目录(50分)

M

milton

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-13

• #1

 

J

Jams

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-14

• #2

>>

 

S

sanrex

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-14

• #3

procedure TFmMain.AddNode(EqualLevel: Boolean; Node: TTreeNode);
var
NewNode ,CurrNode : TTreeNode ;
AName : String ;
begin
CurrNode := TreeLeft.Selected ;
AName := '新节点' ;
if not EqualLevel then
NewNode := TreeLeft.Items.AddChild ( CurrNode,AName,)
else
NewNode := TreeLeft.Items.Add ( CurrNode,AName);
//
NewNode.Selected := true ;
NewNode.EditText ;
end;

 

R

R_Baggio

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-14

• #4

TTreeNode.Items.AddChild
TTreeNode.Items.Add
多简单，具体的用法看帮助就可以了

 

王

王安鹏

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-14

• #5

下列4个函数用于添加同级子节点
add（node，s）添加node的最后一个同级节点；
addfirst（node，s）作为node的第一个同级子节点追加；
addobject（node,s,ptr）添加一个包含数据的同级子节点到最后；
addobjectfirst（node,s,ptr）添加一个包含数据的同级子节点并放在第一位。

以下4个函数用于添加下级子节点：
addchild（node，s）添加node的一个子节点，放在最后；
addchildfirst（node,s）添加node的一个子节点并作为第一个而不是最后一个；
addchildobject（node,s,ptr）添加一个包含数据的子节点，放在最后；
addchildobjectfirst（node,s,ptr）添加一个包含数据的子节点并作为第一个；

 

X

xueminliu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-14

• #6

仔细看TTreenode的帮助,收获肯定不小.

 

F

fa_ya

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-25

• #7

sanrex的程序代码与我的差不多,应该可以实现ttreenode的动态添加!

 

M

milton

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-25

• #8

多人接受答案了。