沈 沈前卫 Unregistered / Unconfirmed GUEST, unregistred user! 2000-03-06 #3 var Node:TTreeNode; begin NOde:=TreeView1.Selected.Parent; TreeView1.Items.Add(Node,'shenqw'); end;
Z zxs7 Unregistered / Unconfirmed GUEST, unregistred user! 2000-03-06 #4 具体的说，用TV.Selected.Add只能在本level 的最后增加，但我直接想在所选中节点的后面加！
沈 沈前卫 Unregistered / Unconfirmed GUEST, unregistred user! 2000-03-06 #5 搞错，应为： var Node:TTreeNode; begin NOde:=TreeView1.Selected; TreeView1.Items.Add(Node,'shenqw'); end;
P Pipi. Unregistered / Unconfirmed GUEST, unregistred user! 2000-03-06 #7 var Node:TTreeNode; Node:=TreeView1.Selected; if(Node<>nil)then TreeView1.Items.Insert(Node.GetNext , 'Pipi');
var Node:TTreeNode; Node:=TreeView1.Selected; if(Node<>nil)then TreeView1.Items.Insert(Node.GetNext , 'Pipi');
沈 沈前卫 Unregistered / Unconfirmed GUEST, unregistred user! 2000-03-06 #8 //以下方法是在选择的Node同级后加入，已经测试通过 var Node:TTreeNode; begin if TreeView1.Selected=nil then Exit; Node:=TreeView1.Selected.getNextSibling; if Node=nil then TreeView1.items.Add(TreeView1.Selected,'shenqw') else TreeView1.items.Insert(Node,'shenqw'); end;
//以下方法是在选择的Node同级后加入，已经测试通过 var Node:TTreeNode; begin if TreeView1.Selected=nil then Exit; Node:=TreeView1.Selected.getNextSibling; if Node=nil then TreeView1.items.Add(TreeView1.Selected,'shenqw') else TreeView1.items.Insert(Node,'shenqw'); end;
P Pipi. Unregistered / Unconfirmed GUEST, unregistred user! 2000-03-06 #9 哎呀，真糟糕，搞错了！沈前卫的才对。 给他15分吧，给我5分安慰奖
沈 沈前卫 Unregistered / Unconfirmed GUEST, unregistred user! 2000-03-07 #10 Pipi. 你真有意思，自己给自己颁奖。 {B-))) Pipi.我们交个朋友吧！如果你愿意并且又是MM,那可高兴死我了！ HaHaHa.....
P Pipi. Unregistered / Unconfirmed GUEST, unregistred user! 2000-03-07 #12 >我们交个朋友吧 好啊好啊 >MM? No No No
