DELPHI 树形目录选择对话框

树形目录选择对话框

加入单元FileCtrl

var dir:string;begin //选择路径   if SelectDirectory('Select a directory','',Dir) then     begin       if Dir[length(Dir)]<>'/' then Dir:=Dir+'/';       form1.EditFilePath.Text:=Dir;     end;end;