16,747
社区成员




procedure TMID_1_Frm.Button9Click(Sender: TObject);
var NowNode : TTreeNode;
begin
TreeView1.SetFocus;
NowNode := TreeView1.Selected;
NowNode.EditText
end;
1、鼠标选择一节点;
2、再按此按钮,进入节点的编辑状态。
var NowNode,NewNode : TTreeNode;
begin
TreeView1.SetFocus;
NowNode := TreeView1.Selected;
1、编辑节点: NowNode.Text:'新的节点显示字符串';
2、加入节点: NewNode := TreeView1.Items.Add(NowNode,TipS); // 加入结点
3、加入子节点: NewNode := TreeView1.Items.AddChild(NowNode,TipS); // 加入子结点
4:删除节点: NowNode.Delete;