[Aleks99]

Доброго времяни суток Мастера подскажите, есть ли возможность установить начальный каталог в SelectDirectory так что бы дерево папок развернулась до указанной папки, и была возможность перемещаться по нему вверх в плоть до выбора диска

[Alegun]

Возможность есть, весь секрет в установке значений для StartDir и в параметрах TSelectDirOpts...

[Aleks99]

Поделись секретом. Я делаю так.

Код:

var
a:String;
 begin
  if SelectDirectory('Выберите каталог','d:\',a ) then
    Begin
        FileListBox1.Directory := a;
    End
  else
    ShowMessage('Выбор был отменен');
Edit1.text:=a;
end;

Во время выбора папки, нет возможнасти перейти к другому диску или вверх по каталогу, а очень нужно.

[Alegun]

Код:

if SelectDirectory(a, [sdAllowCreate, sdPerformCreate, sdPrompt], 1000) then...

[Aleks99]

Может в unit Unit1; что добавить нужно?
а так

Код:

if SelectDirectory(a, [sdAllowCreate, sdPerformCreate, sdPrompt], 1000) then

не работает. ошибку выдаёт

[DCC Warning] Unit1.pas(7): W1005 Unit 'FileCtrl' is specific to a platform
[DCC Error] Unit1.pas(53): E2001 Ordinal type required
[DCC Error] Unit1.pas(53): E2010 Incompatible types: 'Integer' and 'string'
[DCC Error] Unit1.pas(53): E2250 There is no overloaded version of 'SelectDirectory' that can be called with these arguments
[DCC Warning] Unit1.pas(83): W1019 For loop control variable must be simple local variable
[DCC Warning] Unit1.pas(109): W1019 For loop control variable must be simple local variable
[DCC Warning] Unit1.pas(117): W1019 For loop control variable must be simple local variable
[DCC Fatal Error] Project1.dpr(5): F2063 Could not compile used unit 'Unit1.pas'



Если не трудно с рабочим примером помоги.
тут фотки программы "Так есть" - нет возможности выбрать другой диск

http://img-fotki.yandex.ru/get/6730/...5e98fb3f_L.jpg http://img-fotki.yandex.ru/get/9797/...e262d98e_L.jpg

[Alegun]

Это работает под D7, вероятно в десятке что-то выкинули, тогда попробуйте вот так

Код:

SelectDirectory('Выберите каталог', '::{20D04FE0-3AEA-1069-A2D8-08002B30309D}', a )

т.е. принудительно задайте началкой папку "Мой комп"