Классы стандартных диалогов
Страница Dialogs палитры компонентов содержит ряд компонентов, предназначенных для реализации различных стандартных диалогов. Это диалоги для открытия файла, сохранения файла, выбора цвета или шрифта, открытия или сохранения графического файла.
Стандартный диалог открывается при вызове метода Execute. При выборе пользователем значения или щелчке пользователя на кнопке OK возвращается значение True. Если пользователь нажал кнопку Cancel или клавишу Escape, то выполнение стандартного диалога возвращает значение False. Для настройки появления и поведения диалога используется свойство Options. Чтобы закрыть диалог программно, следует вызвать метод CloseDialog.
В следующей таблице приведено описание стандартных диалогов, доступных посредством страницы Dialogs палитры компонентов.
| TOpenDialog | Отображает стандартный диалог Open(имя выбранного файла указываетсяв свойстве FileName) |
| TSaveDialog | Отображает стандартный диалог Save |
| TOpenPictureDialog | Отображает стандартный модальный диалог для выбора и открытия графических файлов. Этот диалог идентичен диалогу Open, но имеет дополнительно панель для просмотра изображения |
| TSavePictureDialog | Отображает стандартный диалог для сохранения графических файлов. Этот диалог имеет панель для просмотра изображения |
| TFontDialog | Выводит стандартный диалог Font, используемый для определения шрифта, размера и стиля отображения данных |
| СTColorDialog | Отображает стандартный диалог Color (выбранный цвет указывается в свойстве Color) |
| TPrintDialog | Отображает стандартный диалог Print |
| TPrinterSetupDialog | Отображает стандартный диалог Printer Setup |
| TFindDialog | Отображает стандартный диалог Find |
| TReplaceDialog | Отображает стандартный диалог Replace |
Следующий пример иллюстрирует использование стандартного диалога для выбора имени открываемого файла:
var F: TextFile; S: string; begin if OpenDialog1.Execute then // Показать диалог Open begin AssignFile(F, OpenDialog1.FileName); // Назначить // файловой переменной имя выбранного файла Reset(F); Readln(F, S); //Прочитать первую строку файла Edit1.Text := S; // Поместить строку в компонент TEdit CloseFile(F); // Закрыть файл end; end;
