Установить папку в диалог открытия файлов

[Freddy]

Здравствуйте!

Подскажите, можно ли установить "начальную" папку для диалога выбора файлов.
При первом открытии этого диалога открывается папка "Мои документы" - можно ли её изменить?

[Pollitruk]

Создайте файл kompas.ini в настройках компаса и пропишите в этом файле путь к рабочей папке

[Sabahs]

procedure TForm1.Button2Click(Sender: TObject);
var
  AOpenDialog: TOpenDialog;
begin
  AOpenDialog := TOpenDialog.Create(nil);
  try
    AOpenDialog.InitialDir := 'E:\TEMP';
    if AOpenDialog.Execute then
    //...
  finally
    AOpenDialog.Free;
  end;
end;

[Freddy]

Создайте файл kompas.ini в настройках компаса и пропишите в этом файле путь к рабочей папке

Да, так работает. Спасибо.
А если убрать из этого файла все другие ссылки на каталоги - в компасе ничего не испортиться?
При создании вручную этого файлика - не могу редактировать его из компаса, это нормально, не подскажите?

procedure TForm1.Button2Click(Sender: TObject);
var
  AOpenDialog: TOpenDialog;
begin
  AOpenDialog := TOpenDialog.Create(nil);
  try
    AOpenDialog.InitialDir := 'E:\TEMP';
    if AOpenDialog.Execute then
    //...
  finally
    AOpenDialog.Free;
  end;
end;

мне бы встроиться в существующий диалог

[Sabahs]

А чем Вас компонент TOpenDialog не устраивает? Можно настройки библиотеки сохранить в системном реестре или в свой файл ini.

[Freddy]

я не для себя делаю, поэтому не хотелось бы менять кнопку открытия документов

[Sabahs]

А зачем кнопку менять? Поменять обработчик события нажатия кнопки.

[Freddy]

А у вас не будет примера перехватчика событий?

[Sabahs]

http://www.delphisources.ru/pages/faq/base/kylix_catch_events.html
Можно найти книгу "руководство разработчика", там много полезной информации.

[Freddy]

спасибо, почитаю.