Delphi7 について

TTreeView の　選択先に子ノードを作成するには　どうするか？

• 選択先に子ノードを作成するには　どうするか？
  選択先は TreeView1.selected でわかる。　これは TreeNode であるからこの下に　ノードを　作成すればよいことになる。
  しかし TTreeNode にはどうやって　子を追加すればいいのだろう？
  
  　このへんは TTreeNodes と TTreeNode の違いかな？　とは言え　これはどう違うのか？
  TTreeNodes には Add というメソッドがあるが TTreeNode には　そんなメソッドはない。
  

  追加については

  var PNode, CNode : TTreeNode; begin PNode := TreeView1.Items.Add(nil,'親ノード'); // 最初のノード作成 Cnode := TreeVire1.Items.AddChild(PNode,'子ノード'); // 子ノードの作成 TreeView1.Items.Delete(Cnode); // 子ノードの削除(たぶん(^^;)

  　こんなんでいける。　とすると
  

  {************************************* ** 選択先に子ノードを追加する。 ** ** **************************************} procedure TForm1.Button12Click(Sender: TObject); begin with TreeView1 do if TreeView1.Selected <> nil then Add_Child_Node(Selected) else showmessage('何も選択されていません。'); end; {**************************************** ** 子ノードの追加 ** ** *****************************************} function TForm1.Add_Child_node(Node : TTreeNode ):boolean; begin TreeView1.Items.AddChild(Node,'test'); end;

  簡単にノードだけを追加するには 　これでいけた。 　ここで選択されているノードを 　特定する。 　TreeViewの Items.AddChild で 　 　　　つまり選択されているノード 　AddChild(Node,'test');

  とこうしてやれば　ノードだけの追加は出来た。
  

  	選択先に子ノード作成 ( ボタン12Click ) 曾孫1　を選択してボタンを押すと test の　子ノードが出来る。

  
  なんと　わかってしまえば　簡単な話でした。
  
  
  
  
  
  
  
  
  
  
  
  
  

• 参考文献　:　　

2006/03/03 start ********* Last Update 2006/11/10 16:54 JST