用户名:  密码:   
您当前的位置:首页 > 程序设计 >  Delphi > 

OpenDialog1控件使用说明

上次修改时间: 2023-07-20 18:04:52      来源:网络总结      作者:钢铁长陈
上一页      路径:DSD\Learn\Delphi语言\常用控件使用说明\      下一页
选择文件:
 if OpenDialog1.Execute then
  begin
    Edit3.Text:= OpenDialog1.FileName;
  end;
 
选择目录 //注:需要uses fileCtrl
  procedure TForm1.Button1Click(Sender: TObject);
var
  FPath : string;
begin
  if SelectDirectory('选择路径11','o:\',FPath) then     //这里的o:\表初始路径为全电脑,改成D:\就是初始打开D盘选择
//  if SelectDirectory('选择路径11','D:\',FPath) then
  begin
    ShowMessage(FPath);
  end;
end;