Расширения в TSaveDialog

[Miha85193]

Здравствуйте!
Подскажите пожалуйста как в компоненте TSaveDialog сделать так, чтобы при изменении свойства FilterIndex изменялось расширение указанное в свойстве FileName согласно FilterIndex. В общем я хочу сделать так, чтобы при сохранении расширение добавлялось автоматически к введенному имени файла. Главная проблема заключается в том, что во время вызова TSaveDialog не возможно изменить свойство FileName что можно увидеть из следующего примера:

procedure TForm1.SaveDialog1TypeChange(Sender: TObject);
begin
  case SaveDialog1.FilterIndex of
   1 : SaveDialog1.FileName := 'Документ1.txt';
   2 : SaveDialog1.FileName := 'Документ1.html';
  end;
end;

То есть во время события OnTypeChange попытка изменить FileName ни к чему не приводит. Подскажите что я делаю не так. Может это можно решить другим путем?

[Sensizu]

Трудно так рассуждать...
Если идёт выбор из индекса фильтра, то зачем еще раз приписывать название расширения? Если бы вспомнил как там... как-то на подобии:

case SaveDialog1.FilterIndex of
1 : SaveDialog1.FileName := 'Документ1' + SaveDialog1.FilterName;
2 : SaveDialog1.FileName := 'Документ1' + SaveDialog1.FilterName;
end;

Сейчас у себя гляну, чтобы наверняка.

[FaTaL]

А зачем тебе вообще менять FileName, пусть остаётся как было. Просто в процедуре сохранения, изходя из FilterIndex подставляй своё расширение к файлу.

[Kotofff]

Нажимаешь на кнопку, появляется диалог (SaveDialog) и после нажатия на кнопку "Сохранить" у тебя есть все что нужно:
1) желаемое имя файла : Savedialog1.Filename (полный путь + имя)
2) номер (индекс) расширения, который выбран пользователем в выпадающем списке: SaveDialog1.FilterIndex

Теперь можешь сформировать имя файла и сохранять его ...

procedure TForm1.Button1Click(Sender: TObject);
begin
  if SaveDialog1.Execute then // запустили диалог
  begin
  Caption := SaveDialog1.FileName; // в заголовке формы - имя файла с выбранным путем
  Label1.Caption :=  IntToStr(SaveDialog1.FilterIndex); // номер расширения
  end;
end;

P.S.
При нажатии копки "Сохранить" сам диалог ничего не делает кроме того что закрывается, оставляя у себя параметры ...

[Miha85193]

За пример применения FilterName спасибо конечно, но как пользователь увидит изменения расширения имени файла во время изменения индекса фильтра FilterIndex? SaveDialog1 то уже вызван, а во время работы его окна, FileName не хочет меняться ни как. Сам проверял.

[Miha85193]

Сообщение от FaTaL

А зачем тебе вообще менять FileName, пусть остаётся как было. Просто в процедуре сохранения, изходя из FilterIndex подставляй своё расширение к файлу.

В том то все и дело, что пользователь изменяя расширение в выпадающем списке в низу диалога, должен видеть изменение расширения имени файла в области "Имя файла".

[Пепел Феникса]

а вы видели в какой то программе подобное?(где именно стандартный диалог)
думаю нет, пишите свою форму диалога, раз так сильно хочется.

[baster128]

Вот сделал прогу там SaveDialog нажимайте все нормально только в фильтре нужно указать.

[Miha85193]

Сообщение от Пепел Феникса

а вы видели в какой то программе подобное?(где именно стандартный диалог)
думаю нет, пишите свою форму диалога, раз так сильно хочется.

Ну конечно же. В Winword 2003 именно такой диалог.