TreeViewにフォルダーをRunTimeでツリー状に表示する方法 (ID:149828)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

ひらがな

procedure TForm1.Button1Click(Sender: TObject);
begin
    DIR ('C:\' , TreeView1);
end;

procedure TForm1.DIR(APATH: String; AParent: TComponent);
var
    dirNames  : TStringDynArray;
    dirName   : string;
    TreeViewItem: TTreeViewItem;
begin
    try
      dirNames  := TDirectory.GetDirectories(Apath, '*.*', TSearchOption.soTopDirectoryOnly );
      for dirName in dirNames do
      begin
        TreeViewItem := TTreeViewItem.Create(TreeView1);
        TreeViewItem.Text := DirName;
        TreeViewItem.OnApplyStyleLookup := TreeViewItemApplyStyleLookup;
        if AParent is TTreeView     then TreeViewItem.Parent := TTreeView(AParent);
        if AParent is TTreeViewItem then TreeViewItem.Parent := TTreeViewItem(AParent);
      end;
    except
    end;
end;

procedure TForm1.TreeViewItemApplyStyleLookup(Sender: TObject);
var
    TreeViewItem,T2: TTreeViewItem;
begin
    if Sender is TTreeViewItem then
    begin
      TreeViewItem := TTreeViewItem(Sender);
      if TreeViewItem.Tag = 0 then
      begin
        TreeViewItem.Tag := 1;
        DIR (TreeViewItem.Text,TreeViewItem);
      end;

end;

←解決時は質問者本人がここをチェックしてください。

戻る