函数SelectDirectory()怎么使用？（好像不是一个简单问题）(25分)

T

tulip_88

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-26

• #1

uses QDialogs;

procedure TMainForm.NDataRecoverClick(Sender: TObject);
var
RecoverDir:String;
begin
if SelectDirectory('选择从哪一个目录恢复数据','c:/mis',RecoverDir) then
MainForm.Caption:=RecoverDir;
end;

有两个问题：
1、c:/mis是打开选择目录对话框后的默认目录，但是没有办法返回到这个目录的上级目录。
2、选择了目录以后，点确定，会使当前程序变成不是当前程序的状态，感觉很不舒服。
这两个问题如何解决呢？

 

薄

薄荷

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-26

• #2

1. 你如果要返回上层目录就用 c:/嘛，或者用 ''。
2. 没有遇到你说的情况。

 

T

tulip_88

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-26

• #3

to 薄荷:
设定一个默认目录会方便一点嘛。

 

太

太阳火

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-26

• #4

自己编个函数嘛.又不复杂.可以用Sample页底一些shell控件(Delphi 6/7)配合来用,
很方便!!
或者可以用另一个selectdirectory,不过是3.x底界面.
function SelectDirectory(var Directory: string; Options: TSelectDirOpts; HelpCtx: Longint): Boolean; overload;
具体清查帮助

 

T

tulip_88

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-27

• #5

接受答案了.