Вниз
Скачать: CL | DM;

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

 
appendix ©   (2004-09-18 19:41) [0]

Есть две аналогичных процедуры для чтения и для записи через диалог.

d:= ExtractFilePath(Application.ExeName);
 SetCurrentDirectory( PChar( d+"Save"));  
 with SaveDialog1 do
 begin
   InitialDir:= d+"Save";
...

d:= ExtractFilePath(Application.ExeName);
 SetCurrentDirectory( PChar( d+"Save"));
 with OpenDialog1 do
 begin
   InitialDir:=d+"Save";
...

Когда открывается SaveDialog, то директория всегда d+"Save" даже если я записывал файл в другой каталог.
А вот OpenDialog почему-то открывает директорию в которой я впоследний раз брал файл для чтения. То есть не обязательно d+"Save".

Как с этим бороться?
Надо чтоб OpenDialog всегда открывался с директорией d+"Save".


 
GuAV ©   (2004-09-18 21:58) [1]

FileName:="" ?


 
Гаврила ©   (2004-09-19 01:23) [2]

ТАм есть такой параметр, типа InitialDir


 
Германн ©   (2004-09-19 01:36) [3]

Поясню ответ GuAV ©   (18.09.04 21:58) [1]

Главным для определения директории является свойство FileName. И если Вы ранее уже "открывали директорию, в которой я в последний раз брал файл для чтения", то естественно программа плюет на InitialDir, поскольку FileName - содержит (по определению) полный  путь к файлу.
Решение простое - перед вызовом OpenDialog.Execute  присваивайте свойству FileName, то что Вам нужно. "*.*" - например.


 
appendix ©   (2004-09-19 13:36) [4]

Да с FileName:="*.*" работает как надо.

Я почему-то думал, что нужно использовать
SetCurrentDirectory( PChar( d+"Save"));
Или её вообще можно выбросить?


 
Германн ©   (2004-09-20 02:02) [5]

Можно выбросить её. Но лучше сначала понять, что есть CurrentDirectory, как ее можно установить, кто и что её устанавливает и как это все отражается на работе стандартных Дельфийских компонент(TSaveDialog, TOpenDialog)!



Страницы: 1 вся ветка

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



Память: 0.46 MB
Время: 0.021 c
1-1095221002
Fedia
2004-09-15 08:03
2004.10.03
Изменение значений шаблона MS Word


1-1095231222
roma
2004-09-15 10:53
2004.10.03
peremenniy


1-1095237628
Black
2004-09-15 12:40
2004.10.03
Почему delete(q, 0, 8) выдаёт ошибку?


8-1089295741
SerBeys
2004-07-08 18:09
2004.10.03
Умножение(Multiply) цветов


3-1094353055
Новенький
2004-09-05 06:57
2004.10.03
Ключи и индексы




   Наверх