Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 29.11.2011, 07:51
Zhigalov Zhigalov вне форума
Начинающий
 
Регистрация: 27.05.2009
Сообщения: 100
Репутация: -1277
По умолчанию OpenDialog

Задаю этому компоненту в свойствах InitialDir = 'C:'. Открываю залажу в какую не то папку. открываю файл. Но при следующем использовании открывается папка на которой я остановился в последний раз а не та которая задана в InitialDir. Подскажите как сделать там чтоб открывался именно изначально заданный путь.
Код:
procedure TForm1.Button2Click(Sender: TObject);
begin
  Path:='';
 if OpenDialog2.Execute then
 begin
  Path:=OpenDialog2.FileName;
   end; 
.
.
.
Ответить с цитированием
  #2  
Старый 29.11.2011, 09:34
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,100
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Задавать InitialDir = 'C:' каждый раз перед открытием диалога.
Ответить с цитированием
  #3  
Старый 29.11.2011, 10:03
Zhigalov Zhigalov вне форума
Начинающий
 
Регистрация: 27.05.2009
Сообщения: 100
Репутация: -1277
По умолчанию

Цитата:
Сообщение от lmikle
Задавать InitialDir = 'C:' каждый раз перед открытием диалога.


А где это перед открытием? Так вот не получается.
Код:
.
.
.
Path : = '';
OpenDialog1.InitialDir:='C';
.
.
.
Ответить с цитированием
  #4  
Старый 29.11.2011, 10:48
icWasya icWasya вне форума
Местный
 
Регистрация: 09.11.2010
Сообщения: 499
Репутация: 10
По умолчанию

Цитата:
Сообщение от Zhigalov
... не получается.
сравните как Вам советовали
Код:
OpenDialog1.InitialDir:='C:';
и что нВы написали
Код:
OpenDialog1.InitialDir:='C';
Ответить с цитированием
  #5  
Старый 29.11.2011, 10:51
Zhigalov Zhigalov вне форума
Начинающий
 
Регистрация: 27.05.2009
Сообщения: 100
Репутация: -1277
По умолчанию

Балин ну забыл двоеточие. сути это не меняет.
Ответить с цитированием
  #6  
Старый 29.11.2011, 10:57
m1sclick m1sclick вне форума
Начинающий
 
Регистрация: 04.07.2011
Адрес: Украина
Сообщения: 186
Версия Delphi: 2010
Репутация: 2094
По умолчанию

Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
  OpenDialog1.InitialDir:='C:\';
  if OpenDialog1.Execute then
end;

Удачи.
Ответить с цитированием
  #7  
Старый 29.11.2011, 11:31
Zhigalov Zhigalov вне форума
Начинающий
 
Регистрация: 27.05.2009
Сообщения: 100
Репутация: -1277
По умолчанию

Цитата:
Сообщение от m1sclick
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
  OpenDialog1.InitialDir:='C:\';
  if OpenDialog1.Execute then
end;

Удачи.

Да это тоже самое не работает
Все равно открывает ту папку в которой был открыт последний файл.
Ответить с цитированием
  #8  
Старый 29.11.2011, 12:13
AlexSku AlexSku вне форума
Специалист
 
Регистрация: 07.05.2007
Адрес: Москва
Сообщения: 884
Репутация: 21699
По умолчанию

Добавить в свойство Options ofNoChangeDir (в редакторе изменить на true).
Ответить с цитированием
  #9  
Старый 29.11.2011, 12:36
Аватар для Ildar-tsr
Ildar-tsr Ildar-tsr вне форума
Местный
 
Регистрация: 09.08.2011
Адрес: г.Сургут, ХМАО
Сообщения: 453
Репутация: 7402
По умолчанию

Цитата:
Сообщение от AlexSku
Добавить в свойство Options ofNoChangeDir (в редакторе изменить на true).
Да не поможет это свойство при выборе файла.

Цитата:
Сообщение от Zhigalov
Задаю этому компоненту в свойствах InitialDir = 'C:'
Надеюсь ты без кавычек туда вписываешь? А перед execute задавать InitialDir бессмысленно, пока opendialog хранит имя выбранного файла. Сделай так:
Код:
  OpenDialog1.FileName:= '';
  OpenDialog1.Execute;
__________________
Google в помощь
Ответить с цитированием
  #10  
Старый 29.11.2011, 12:42
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

Код:
  OpenDialog1.FileName:='c:\WINDOWS\system32\*.*';
  if OpenDialog1.Execute then ...
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
  #11  
Старый 29.11.2011, 13:29
Zhigalov Zhigalov вне форума
Начинающий
 
Регистрация: 27.05.2009
Сообщения: 100
Репутация: -1277
По умолчанию

Эх. Все равно все те же грабли
Ответить с цитированием
  #12  
Старый 29.11.2011, 13:40
Аватар для Ildar-tsr
Ildar-tsr Ildar-tsr вне форума
Местный
 
Регистрация: 09.08.2011
Адрес: г.Сургут, ХМАО
Сообщения: 453
Репутация: 7402
Злость

Цитата:
Сообщение от Zhigalov
Эх. Все равно все те же грабли
Скидывай сюда архив с проектом садовод.
__________________
Google в помощь
Ответить с цитированием
  #13  
Старый 29.11.2011, 13:41
Zhigalov Zhigalov вне форума
Начинающий
 
Регистрация: 27.05.2009
Сообщения: 100
Репутация: -1277
По умолчанию

Цитата:
Сообщение от NumLock
Код:
  OpenDialog1.FileName:='c:\WINDOWS\system32\*.*';
  if OpenDialog1.Execute then ...
Получилось вот так. Не получалось по моей вине. Сам накасипорил пойду найду рельсу и буду выпрямлять руки. Всем спасибо за помошь
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 11:34.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025