delphi opendialog выбор директории

Ответ от Анас Юсупов[гуру]
Ты не заставляй, а вежливо проси раз не получается

Ответ от Gertyz[гуру]
не в Win3.1 а в группе "Dialogs" копонент называется что то типо OpenFIleDialog

Ответ от Ewe 2e¶ CoЛнЫшКоcBeTиТоЧеНЬяРкО*[гуру]
Вот вам работающий пример: По нажатию на кнопку вываливается диалог выбора каталога и _____________________ uses FilеCtrl; ... procedure TForm1.Button1Click(Sender: TObject); var Dir: string; begin Dir := 'C:Windows'; if FileСtrl.SelectDirеctory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],0) then Label1.Caption:=Dir else ShowMessagge('Нажата кнопка "Отмена"');; end; Параметры - это значения sdAllowCreate, sdPerformCreate, sdPrompt в любом сочетании друг с другом. sdAllowCreate - если присутствует, то в диалоге можно создавать новые каталоги, иначе нельзя.

Ответ от Коваленко Александр[активный]
Отправил на ящик компонент для вывода окна с выбором папки. Открываешь дельфи, в главном меню нажимаешь Component/Install component... В строке Unit file name указываешь путь до файла .pas, который кинул на ящик. И все пользуешься. Только я не знаю как размещать новые компоненты на нужную вкладку, но думаю это не так критично. Когда установишь компонент, листай вкладки в самый конец, там самая последняя вкладка и там будет этот компонент. Св-ва компонента DirPath - путь, который выберется когда выберешь папку и нажмешь New Folder - делать или нет кнопку "Новая папка" в окне когда выбираешь А в остальном работа такая же как и с OpenDialog.

Ответ от Аццкий скорпиончег[гуру]
Текст процедуры выбора папки: // Просим юзера выбрать требуемый каталог, стартовый каталог C: if SelectDirectory('Выберите каталог', 'C:', chosenDirectory) then ShowMessage('Выбранный каталог = '+chosenDirectory); В качестве второго параметра можно поставить пустую строку '', чтобы обзор начался с Моего компьютера.. . Т. е. в итоге у вас должно получиться что-то вроде: procedure TForm1.Button1Click(Sender: TObject); var chosenDirectory : string; begin if SelectDirectory('Выберите каталог', '', chosenDirectory) then // нужные действия end;

Ответ от 3 ответа[гуру]