Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.021 c