一聚教程网:一个值得你收藏的教程网站

热门教程

delphi选择文件夹例子

时间:2022-06-25 03:43:38 编辑:袖梨 来源:一聚教程网

所需单元
 

 代码如下 复制代码
uses FileCtrl;

示例代码

 代码如下 复制代码

 
procedure TForm1.btn1Click(Sender: TObject);
var path:String;
begin
       if SelectDirectory('请选择文件夹','',path) then
       ShowMessage(path);
 
end;

热门栏目