Общее задание
Дополнить выпадающий список ComboBoxEx1 V-ю (V-номер варианта) различными графическими изображениями.
Лабораторная работа № 5 «Компоненты-оболочки для специализированных окон диалогов»
В Delphi существуют специальные компоненты, позволяющие организовать работу со специализированными окнами диалогов операционной системы. К таким диалогам относят: диалог выбора пути к файлу, диалог выбора цвета, диалог настройки шрифта и т.д. Все эти диалоги вызываются специализированными функциями операционной системы, но в Delphi эти диалоги выполнены в виде невизуальных компонентов. Эти компоненты называются компонентами-оболочками. Они позволяют уже на этапе разработки приложения настроить все необходимые параметры окна диалога (например: для диалога выбора цвета – текущий цвет, для диалога выбора пути к файлу – тип просматриваемых файлов или текущая директория), а во время работы приложения вызвать необходимое окно диалога.
Создадим новое приложение. Перейдем к вкладке Standard палитры компонентов и поместим на форму компонент Memo и четыре компонента Button. Настроим свойства компонентов.
Для компонента Memo1:
Top=0
Left=0
Width=300
Height=300
Lines (В появившемся редакторе свойства необходимо удалить все строки)
Для компонента Button1:
Caption = Открыть.
Top=10
Left=310
Width=75
Height=25
Для компонента Button2:
Caption = Сохранить.
Top=40
Left=310
Width=75
Height=25
Для компонента Button3:
Caption = Шрифт.
Top=70
Left=310
Width=75
Height=25
Для компонента Button4:
Caption = Фон
Top=100
Left=310
Width=75
Height=25
Для компонента Form1 (формы):
Caption = Диалоги
Width=400
Height=350
BorderStyle = bsDialog
Перейдем на вкладку Dialogs палитры компонентов и поместим на форму компоненты:
OpenDialog – диалог открытия файла;
SaveDialog – диалог сохранения файла;
ColorDialog – диалог выбора цвета;
FontDialog – диалога выбора шрифта.
Редактируемая форма будет выглядеть следующим образом (Рис. 1):
Рис. 1. Редактируемая форма.
Настроим свойства компонента OpenDialog:
Title (Заголовок окна диалога) = Открытие текстового файла
Filter (Рис. 2). В редакторе этого свойства мы указываем, какие файлы должен отображать диалог. В поле Filter Name записывается комментарий, в поле Filter командная строка. Командная строка должна состоять из «*.» и расширения файла.
Рис. 2. Редактор свойства Filter компонента OpenDialog1
Наш диалог будет отображать для открытия только текстовые файлы с расширением TXT.
Таким же образом настроим значение свойства Filter компонента SaveDialog1. Далее настроим также его свойства:
Title = Сохранение текстового файла
DefaultExt = txt (Расширение файла по умолчанию. Если при сохранении пользователь приложения забудет написать расширение файла, то диалог автоматически запишет файлу расширение, указанное в DefaultExt).
Создадим обработчик события OnClick компонента Button1 и вызовем в нем диалог открытия файла:
procedure TForm1.Button1Click(Sender: TObject);
begin
// если пользователь выбрал файл для открытия
if OpenDialog1.Execute then
// загружаем в редактор Memo1 текст из файла (путь к файлу – значение свойства FileName)
memo1.Lines.LoadFromFile(Opendialog1.FileName);
end;
Метод Execute является функцией вызывающей окно диалога (это справедливо для всех рассматриваемых далее диалогов). Она принимает значение истины, если пользователь подтверждает свой выбор в диалоге, – ложь в противном случае (т.е. если нажата кнопка «Отмена»).
Создадим обработчик события OnClick компонента Button2 и вызовем в нем диалог сохранения файла:
procedure TForm1.Button2Click(Sender: TObject);
begin
// если сформирован путь, имя нового файла, и пользователь подтвердил свои действия
if SaveDialog1.Execute then
// сохраняем текст из Memo1 по указанному пути (путь к файлу – значение свойства FileName)
memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;
Создадим обработчик события OnClick компонента Button3 и вызовем в нем диалог выбора шрифта:
procedure TForm1.Button3Click(Sender: TObject);
begin
// если выбран шрифт, то меняем шрифт редактора Memo1 на выбранный шрифт
if FontDialog1.Execute then
Memo1.Font:=FontDialog1.Font;
end;
Создадим обработчик события OnClick компонента Button4 и вызовем в нем диалог выбора цвета:
procedure TForm1.Button4Click(Sender: TObject);
begin
// если выбран цвет, то меняем цвет редактора Memo1 на выбранный цвет
if ColorDialog1.Execute then
Memo1.Color:=ColorDialog1.Color;
end;
Теперь мы получили с вами простейшее приложение с использованием стандартных диалогов. Запустите приложение и проверьте его работу.