delphi treeview 如何在子节点下增加子节点

答案:2 悬赏:0 手机版

解决时间 2021-03-01 17:56

提问者网友：情歌越听越心酸
2021-03-01 13:08

最佳答案

五星知识达人网友：梦中风几里
2021-03-01 14:42

假设你当前要添加子节点的节点已经被选中
var
nodes:TTreeNodes;
begin
nodes=TreeView1.Items;
nodes.AddChild(TreeView1.Selected,'新建子节点名');
end;

全部回答

1楼网友：污到你湿
2021-03-01 14:51

unit unit1; interface uses windows, messages, sysutils, classes, graphics, controls, forms, dialogs, stdctrls, comctrls; type tform1 = class(tform) treeview1: ttreeview; button1: tbutton; procedure formcreate(sender: tobject); procedure button1click(sender: tobject); private { private declarations } public { public declarations } end; var form1: tform1; selectednode:ttreenode; implementation {$r *.dfm} procedure tform1.formcreate(sender: tobject); var node:array[1..6] of ttreenode; begin node[1] := treeview1.items.addchild(nil,'父节点1'); node[2] := treeview1.items.addchild(node[1],'子节点11'); node[3] := treeview1.items.addchild(node[1],'子节点12'); node[4] := treeview1.items.addchild(nil,'父节点2'); node[5] := treeview1.items.addchild(node[4],'子节点21'); node[6] := treeview1.items.addchild(node[4],'子节点22'); end; procedure tform1.button1click(sender: tobject); var node: ttreenode; str1,str2:string; begin selectednode:=treeview1.selected; if selectednode.haschildren then begin str1:= selectednode.text; str2:= copy(selectednode.getlastchild.text, length(selectednode.getlastchild.text),1); str2:=inttostr(strtoint(str2)+1); node := treeview1.items.addchild(selectednode,str1+str2); end else node:=treeview1.items.addchild(selectednode,selectednode.text+'1'); end; end. 接分补删除 procedure tform1.button2click(sender: tobject); begin selectednode:=treeview1.selected; selectednode.delete; end;

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息