OpenDialog问题，给分题(50分)

K

kevin8093

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-29

• #1

1 我想用OpenDialog选择目录，这要求得到目录就可以了，不可选择目录下的文件
2 我想得到我算选择的目录的名字，filename得到的是绝对路径，我只要文件夹的名字就行了
，扯了用截取字符串的方法外有没有更简单的办法？

 

J

jyh_jack

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-29

• #2

2.extractfilepath('文件名')

aaa:=extractfilepath('c:/windows/notepad.exe') //返回值为'c:/windows'

 

K

kevin8093

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-29

• #3

to jyh_jack：你看我的第一个问题，我想得到文件夹，这是的filename应该不是那样的吧？
我想得到我选择的文件夹的名字。

 

T

tanhua

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-29

• #4

SelectDirectory("选择路径","C:",dir)；试试这个函数，呵呵，C：是开始打开盘符，dir
是你要的返回值。

 

C

CrendKing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-29

• #5

第一个问题：我也有这个疑问，后来想想，觉得单用 OpenDialog 是无法实现的，我觉得
比较好的办法就是 用一个 TreeView 控件，将其 MultiSelect 属性设为 True，然后自己
递归搜索文件夹树，就像 Sample => ShellTreeView （可惜它没有 MultiSelect）一样。

 

N

Nizvoo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-29

• #6

SelectDirectory

 

L

linsb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-30

• #7

if OpenDialog.Execute then
EditPath.Text := ExtractFilePath(OpenDialog.FileName);
设置：
OpenDialog.filter:='目录';
OpenDialog.Filename:='选择好路径点两次“打开”即可';

 

D

dmg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-30

• #8

我有现成的控件， 要吗？

 

K

kevin8093

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-30

• #9

我的mail是kevin8093@hotmail.com，如果有控件的话谢了

 

M

mr.zy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-30

• #10

知麻大问题也要控件解决?!
打死你我也不干:0(

 

M

mr.zy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-30

• #11

user FileCtrl;
procedure TForm1.Button1Click(Sender: TObject);
var dir:string;
begin
if SelectDirectory ('选择路径','C:',dir) then
begin
showmessage('你选择了:'+dir);
end;
end;

 

程

程云

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-30

• #12

有专门的目录选择对话框的API函数SelectDirectory，
你在使用它时，还得uses一个单元，
这个单元我记不得了，可能叫ShellAPI吧，

你找找看了

 

G

godzhou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-30

• #13

SelectDirectory要引用 FileCtrl 单元, 不是shellapi

 

易

易名烦

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-30

• #14

大哥，MR.ZY写的太对头了，就是有个小小的问题问一下：
怎么让它弹出后在应用程序的中间，而不是在右下角！

 

K

kevin8093

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-30

• #15

接受答案了.