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 ...

SelectDirectory Найти похожие ветки