type TSaveDialog;
TSaveDialog - визуальный компонент. Он используется для выбора пользователем имени файла предназначенного для сохранения. Он может быть определен перемещением значок с вкладки Dialogs или определяя переменную TSaveDialog. TSaveDialog может быть сконфигурирован для удовлетворения ваших потребностей. При его использовании вы будете проходить через следующие шаги: Создание объекта диалога Вы определяете переменную TSaveDialog, затем присваиваете ей новый объект TSaveDialog: var saveDialog : TSaveDialog; begin saveDialog := TSaveDialog.Create(self); Обратите внимание, что диалог должен иметь хозяина, в данном примере текущий объект мы снабжаем - self - как самостоятельный. Установка опций Перед отображением диалога, вы, вероятно, конфигурируете его по своим потребностям, устанавливая свойства диалога. Вот его основные свойства: Свойство Title Используется для установки заголовка диалога. Свойство FileName Выдает имя файла, заданное по умолчанию для сохранения. (Иначе, поле имени файла будет пробелом). Свойство DefaultExt Определяет расширение, которое будет добавляться к пользовательскому имени файла, если оно печатается вручную (а не выбирается из списка файлов). Если этих фильтров расширений два или больше, то это значение игнорируется. Они должны быть помещены в раскрывающийся список значений расширения. Очень странно! Свойство Filter Оно позволяет отображать и выбирать только некоторые типы файлов. Текст фильтра отображается в ниспадающем поле, чуть ниже поля имени файла. Следующий пример выбирает только текстовые файлы: saveDialog.Filter := 'Text files only|*.txt'; Раскрывающийся список показывает текст, находящийся перед разделителем |. После разделителя вы определяете маску, которая выбирает файлы, которые вы хотите. saveDialog.Filter := 'Text files|*.txt|Word files|*.doc'; Выше мы разрешили отображать текстовые и Word файлы как два отдельных пункта в раскрывающемся списке. Свойство FilterIndex Определяет, какой фильтр ниспадающего поля будет отображен первым. Свойство InitialDir Устанавливает начальный каталог в диалоге. Отображение диалога Теперь мы вызываем метод TSaveDialog: if saveDialog.Execute then ... Execute возвратит истину, если пользователь выбрал файл и нажал OK. Теперь вы можете использовать выбранный файл: Окончание диалога Выбранный файл получает в использование следующее свойство: Свойство FileName Оно содержит полный путь плюс имя выбранного файла. Наконец, мы должны освободить объект диалога: saveDialog.free;
|