Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.44 MB
Время: 0.027 c
7-1076701323
Khabibulin
2004-02-13 22:42
2004.04.18
Volume


8-1071320757
Japan
2003-12-13 16:05
2004.04.18
Скриншот экрана


1-1080803620
ivc_andr
2004-04-01 11:13
2004.04.18
список в комбобоксе


7-1075682062
Bes
2004-02-02 03:34
2004.04.18
COM порт


1-1080801799
ПрогерШ
2004-04-01 10:43
2004.04.18
Как в эдите сделать токо ввод английскеих букв?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский