■■■我要怎么样才能弹出一个WINDOWS标准的文件夹浏缆对话框呀!!(10分)

3

3333W

Unregistered / Unconfirmed
GUEST, unregistred user!
■■■我要怎么样才能弹出一个WINDOWS标准的文件夹浏缆对话框呀!!
 
procedure TForm1.ButtonBrowseDirClick(Sender: TObject);
var
sRoot, sDir: String;
begin
sRoot := '';
if SelectDirectory('请选择目录', sRoot , sDir) then
Self.LabeledEdit1.Text := sDir;
end;
 
好像要uses FileCtrl
 
你可以先用标准打开文件对话框控件
再用extracfilepath 搞定！
 
还可用win32控件稍烦一些啦
 
Passion说的是对的！
 
passion两次说的加起来就是对的
 
您必须登录或注册才可回复。

Similar threads

Ray
[转]终于可以发布Delphi下收点OSGI精髓皮毛而设计的插件框架WisdomPluginFramework
回复
4
查看
4K
chlkuei
C
☆
怎么才能调出“选择文件夹”的对话框？(0分)
回复
3
查看
76
☆龙★虾☆
☆
L
如何用鼠标点击文件夹图标，Edit1.text:=“这个文件夹的全路径名"?(100分)
2
回复
28
查看
217
lah998
L
1
怎样获取浏览弹出对话框的信息?(50分)
回复
6
查看
95
stlont
S
I
象Acdsee的浏览一个文件夹里的所有图片，怎么得到一个文件夹里所有文件名，如何储存，具体又是怎么实现的呢？(5分)
回复
3
查看
79
ISY
I
顶部