Простой, но парой такой необходимый Delphi компонент, позволяющий вызывать диалог выбора папки. Хотя свойств и параметров в нем не так уж и много приведу их небольшую расшифровку:
1) NewFolder - Св-во задающее создавать ли кнопку "Новая папка" в диалоге выбора каталога.
2) TitleName - В этом свойстве можно задавать название шапки диалога.
3) Execute - Собственно функция вызова диалога.
4) DirPath - Св-во передающееся функцией Execute - путь к папке которую вы выбрали.
Пример вызова диалога при клике на кнопке:
procedure TForm1.Button1Click(Sender: TObject);
begin
DirDialog1.Execute;
end;
За компонент дружно скажем спасибо Яковченко Сергею.
Установка: Здесь все очень просто. В главном меню Delphi нажимаем Component => Instal Component. В появившемся окне, в первой строчке указываем путь до PDirSelected.pas, жмем ОК. Если появляется небольшое окошечко, жмем в нем Instal. Компонент установлен.
| 