Статистика |
Онлайн всего: 1 Гостей: 1 Пользователей: 0 |
|
| | | | КАК ОТКРЫТЬ ОКНО ДИАЛОГА ВЫБОРА ДИРЕКТОРИИ | | | | | | Необходимо добавить модуль FileCtrl в раздел Uses. | | Поместим на форму компоненты TEdit и TButton. В обработчике событий OnClick компонента TButton запишем следующее: | | procedure TForm1.Button1Click(Sender: TObject);
begin
SelectDirectory('Select Folder',' ',s);
edit1.Text:=s;
end; | | Для того, чтобы в окне диалога отображалось дерево определенного диска, необходимо указать его: | | SelectDirectory('Select Folder','d:\ ',s); | | | | | | DelphiCode.org 03.01.2009 |
|