Текущий архив: 2004.04.18;
Скачать: CL | DM;
Вниз
SelectDirectory Найти похожие ветки
← →
-kiril (2004-03-30 14:39) [0]Добрый день, проблема такая - для вызова диалога по выбору папки использую функцию SelectDirectory:
var
Folder: string;
begin
Folder:="D:\1234567890";
if SelectDirectory(Folder, [sdAllowCreate], Self.HelpContext) then ...
Так вот, если такой папки еще нет на диске, то выдается ошибка "File not found", открывается диалог, но в TEdit "Имя директории" вместо заданной указано просто "D:\". Т.е. приходится заново ручками набивать "1234567890". Как этого можно избежать? Т.е. даже если папка еще не создана путь должен быть указан тот, который задается при вызове процедуры. А есть необходимость добавить, например, всего один символ в предалагаемом пути, а приходится набивать все полностью.
← →
Юрий Зотов © (2004-03-30 15:09) [1]{$B-}
if (DirectoryExists(Folder) or ForceDirectories(Folder)) and
SelectDirectory(Folder, [sdAllowCreate], HelpContext) then ...
Страницы: 1 вся ветка
Текущий архив: 2004.04.18;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.046 c
