超级简单的问题，如果你答不出来，那你就……

Question

那个好像不是公共对话框吧。不过，CSDN.Net里有这个VCL控件的。我用过，Delphi 5可以安装

Answer 1

Delphi中有一个标准控件OpenDialog在Dialog标签页中可以找到。你说的是这个吧。

Answer 2

是否说的是以树型目录显示我的电脑，网上邻居，控制面板等等的Dialog?
我这里有一个带源码的VCL，想要？和我联系。[email protected]

Answer 3

Dialog标签中有现成的
在想调用的地方执行如：opendialog1.execute;的语句

Answer 4

使用windows API
SHBrowseForFolder
WINSHELLAPI LPITEMIDLIST WINAPI SHBrowseForFolder(
    LPBROWSEINFO lpbi
); 
    bi: TBrowseInfo;
    bi.hwndOwner := Handle;
    bi.pidlRoot := pidlDomain;
    bi.pszDisplayName := lpBuffer;
    bi.lpszTitle := PChar(Title);
    bi.ulFlags := 0;
    bi.lpfn := FDCallback;
    bi.lParam := UINT(self);    pidlBrowse := SHBrowseForFolder(bi);

Answer 5

一个实用的函数
var thefilename:string;
procedure TFormsetpara.ButtonNavigateClick(Sender: TObject);
var    dlg:TOpenDialog;
begin
  dlg:=TOpenDialog.Create(self);
  if dlg.Execute then
    begin
      thefilename:=dlg.FileName;
      VoiceFileName.Text:=dlg.FileName;
 end;
end;

Answer 6

目录对话框于文件对话框不一样的,用现成的函数SelectDirectory,另外请参考文档(文档中心)
"目录处理函数"

Answer 7

就是selectDirectory了,不过要uses FileCtrl.
用法如下:
procedure TForm1.Button1Click(Sender:TObject);
var
  path:string;
begin
  selectDirectory('请选择目录','',path);//path就是你选择的目录,如果不为空的话
end;

Answer 8

就是用SelectDirectory,用法如下;
procedure TForm1.Button1Click(Sender:TObject);
var
  path:string;
begin
  SelectDirectory('请选择目录','',path);//path就是你选择的目录,如果不为空的话;
end;

Answer 9

在object中inport type libary选micrsoft common dialog （sp3)就可加载！应该家通用对话框吧！office也是用这个！