プロが教えるわが家の防犯対策術!

Delphi XE5 Starterを使っています。
次のようにフォルダーを選択するとき、以前選択したフォルダーをデフォルトで選択できるようにしたのですが、こうするとこのフォルダの上にあるフォルダが選択できません。
何か方法はありませんか?
if SelectDirectory('登録するフォルダの選択',SaveFolder,SaveFolder) then begin
ShowMessage(SaveFolder);
ButtonSaveFolder.Caption := SaveFolder;
end;

A 回答 (1件)

SelectDirectoryの引数にSaveFolderを2つ指定していますが、最初のSaveFolderは参照元のルートフォルダ、2番目のSaveFolderは選択されたフォルダです。



ルートフォルダにSaveFolderを指定すると、それより上のフォルダは選択できませんので、ルートフォルダには上位のフォルダを指定するか、空文字を指定してください。

例えば、
SelectDirectory('登録するフォルダの選択',ExtractFileDrive(SaveFolder),SaveFolder)
SelectDirectory('登録するフォルダの選択','',SaveFolder)
など
    • good
    • 0
この回答へのお礼

回答ありがとうございます。
やっぱり無理ですか。
ほとんど変更することのないフォルダの指定に使用するんですが、
デフォルトフォルダや今の設定フォルダをまず開けばちょっと便利かなと思って質問させていただきました。
空文字を指定するようにします。

お礼日時:2015/07/17 08:18

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!