23.1. Стандартные диалоговые окна

Стандартные диалоговые окна находятся на страничке Dialogs, на форме они отображаются ввиде значков и видны только на этапе проектирования программы. Все диалоговые окна вызываются в процессе работы программы с помощью метода Execute.

Для начала рассмотрим возможности компонента TOpenDialog . Этот диалог предназначен для выбора файлов на диске. Основными его свойствами являются:

• Property Filter:String; – определяет фильтр для отбора файлов.

Он состоит из набора сдвоенных полей. В первом определяется имя фильтра, а во втором – его реализация. Все поля фильтра разделяются вертикальной чертой – |. Например, можно задать фильтр следующим образом:

OpenDialog1.Filter:=’Графические файлы | *.bmp, *.gif, *.jpg ’+

’| Текстовые файлы | *.txt, *.pas ’;

Здесь фильтр состоит из двух возможных фильтров: первый фильтр – для выбора графических файлов, а второй – для выбора текстовых файлов.

• Property FileName:WideString; – определяет имя выбранного файла.

• Property Options:TOpenOptions; – определяет множество возможностей выбора файлов.

Например, значение множества ofAllowMultiSelect позволяет выбрать не один, а произвольное множество файлов, имена которых размещаются в свойcтве:

• Property Files:TStrings;

Для выбора нескольких файлов следует удерживать клавишу Ctrl и мышью отмечать выбранные файлы.

Рассмотрим пример обработчика события нажатия кнопки с надписью «Открыть файл», который производит поиск файла с расширением *.pas и затем воспроизводит содержимое этого файла в компоненте Memo1:

Procedure TForm1.Button1Click(Sender:TObject);

Begin With OpenDialog1 do Begin

Filter:=’Паскалевские файлы | *.pas’;

If Execute then Memo1.Lines.LoadFromFile(FileName);

End;

End;

Приведем список остальных стандартных диалогов.

TSaveDialog – сохранение файлов,

TOpenPictureDialog – открытие картинки,

TSavePictureDialog – сохранение картинки,

TFontDialog – выбор шрифта,

TColorDialog – выбор цвета,

TPrintDialog – выбор текущего принтера из списка зарегистрированных в операционной системе,

TPrinterSetUpDialog – настройка параметров печати,

TFindDialog – поиск образа в тексте,

TReplaceDialog – поиск образа и его замены в тексте,

TPageSetUpDialog – настройка параметров печатаемой страницы.