如何实现OpenDialog，用来选择文件夹？？？

[yifei1900]

如题？

[pilicat]

Delphi中有一个SelectDirecotry(也可能是：selectdir)函数的，你可以参考一下它的帮助，它有两种形式的。

[joky1981]

1、用函数SelectDirectory()
2、用OpenDialog的选中文件后去它的路径
采用第一种方法就可以了，是直接选择路径的

[sinsns]

楼主大白痴,这么白痴的问题也问!有病!病入盲膏,嘻嘻!

[耙子]

回答得都太不负责任了

[CloneCenter]

用 SelectDirectory 来选择目录。

[CloneCenter]

Unit

FileCtrl

function SelectDirectory(const Caption: string; const Root: WideString; out Directory: string): Boolean; overload;
function SelectDirectory(var Directory: string; Options: TSelectDirOpts; HelpCtx: Longint): Boolean; overload;

[ahjoe]

用控件，我的主页上有，很好用的。我的程序都用它。
http://www.ahjoe.net/

[yifei1900]

对不起，楼上那位大哥，我在你的主页上并没有找到控件下载啊。

[lion_lh]

uses FileCtrl;
var
Dir: string;
begin
if SelectDirectory('选择目录','',Dir) then
edit1.Text :=dir;
end;

[yifei1900]

对于某些人的人身攻击，我个人不置可否，但个人以为，品质？？？

对不起我的问题我没有说明白。
我的意思是说实现一个类型Dreamweaver中设定站点目录的选择目录对话框，就是那个选择对话框和OpenDialog的形式是一样的，但是不显示文件，仅显示本目录下的子目录，如果你没有用鼠标选中任何一个子目录，那么OpenDialog上的“确定”按钮上的文字是“选定”，如果你选择了一个子目录，那么“确定”按钮上的文字是“打开”，我的意思是实现这样一个对话框。而这个是OpenDialog不能实现的，我的意思是是否能通过继承或其它一些方法实现这样一个对话框，以用来弹出一个对话框来选择一个目录，而不是文件。