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

[yxf]

见过Windows中的目录选择公共对话框吗？就是那个名为“浏览文件夹”的那个。
能不能告诉我如果在Delphi中调用它？不安装common control地使用它。

[Nicrosoft]

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

[yiyu]

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

[StarRainBow]

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

[fantsy]

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

[Wingsun]

使用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);

[Sunlet]

一个实用的函数
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;

[wxz]

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

[gwenz166]

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

[flyingknight]

我不会delphi...我就怎么样？

[taxi]

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

[taxi]

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

[skt642]

34336关注！