可以令opendialog打开的是一个文件夹而不是一个文件吗？

Question

不可以，想一想就知道不可以了，
如果你要选一个子文件夹你怎么进入它的父文件家里面呢？
例如
c:\haha\hehe\
当前目录是c:\
我要选hehe可是我怎么线进入到haha里面呢？

Answer 1

uses FileCtrl;const
  SELDIRHELP = 1000;
procedure TForm1.Button1Click(Sender: TObject);
var
  Dir: string;
begin
  Dir := 'C:\MYDIR';
  if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP) then
    Label1.Caption := Dir;
end;

Answer 2

uses QDialogs;var
  dir: String;
begin
  selectDirectory('请选择目录','',dir);
  ShowMessage(Dir);
end;

Answer 3

不可以！如果想返回目录可以用别的如：selectDirectory等

Answer 4

OpenDialog1.Execute;
     edit1.Text :=ExtractFileDir(OpenDialog1.FileName);SetCurrentDir(Edit1.Text);

Answer 5

那有没有办法可以更改directorylist的文件夹图标？