DelphiでTreeViewを動的に生成する方法を教えてください。

DelphiでTreeViewをダイナミックに生成するには、以下の方法があります。

1. ツリービューコントロールを作成し、そのParentプロパティを設定し、フォームまたはその他のコンテナーコントロール内に配置します。
2. TreeViewにノードを追加するにはTTreeNodeクラスを使用する。TreeViewのNodesプロパティを使用してTreeViewのノードコレクションを取得できる。例えば以下のようなコードでルートノードを作成できます。
3. ルートノード: TTreeNode;
   begin
   TreeView1.Items.Add(nil, ‘ルート’);
   end;
4. AddChildメソッドを使用してノードに子ノードを追加します。このメソッドを使用するときは、親ノードと子ノードのテキストを指定する必要があります。たとえば、次のコードを使用すると、ルートノードを作成し、2つの子ノードを追加できます。
5. ルートノード、子ノード1、子ノード2 : ノード型;
   開始
   // ルートノードを追加
   ルートノード := TreeView1.Items.Add(nil, ‘Root’);// 子ノードを追加
   子ノード1 := TreeView1.Items.AddChild(ルートノード, ‘Child 1’);
   子ノード2 := TreeView1.Items.AddChild(ルートノード, ‘Child 2’);
   終了;
6. TreeView の Selected プロパティを使用して、現在選択されているノードにアクセスできます。例えば、現在選択されているノードのテキストを取得するには、次のコードを使用できます。
7. var
   SelectedNode: TTreeNode;
   begin
   // 現在の選択ノードの取得
   SelectedNode := TreeView1.Selected;if Assigned(SelectedNode) then
   ShowMessage(SelectedNode.Text)
   else
   ShowMessage(‘ノードが選択されていません’);
   end;

DelphiでTreeViewを動的に生成する基本的な方法は以上です。具体的なニーズに応じて、TreeViewのノードを操作および管理するために他の方法を使用できます。