Работа с диалогом выбора шрифта. Начиная с этого урока некоторое время, мы посвятим изучению стандартных диалоговых окно. В частности, предполагается рассмотреть диалоговые окна для задания шрифта, цвета, открытия и сохранения файлов. Начнем с диалога для выбора шрифта. Он расположен на вкладке Dialogs палитры компонентов.
Двойным щелчком расположите его на форме. Разместите на форме также обычную кнопку и label с вкладки Standard. Именно для этого label мы и будем задавать разные шрифты. Стандартные значения для наших компонентов можете оставить без изменения - сейчас это не принципиально. Сделайте двойной щелчок на кнопке для создания заготовки кода.
В полученную заготовку напишите следующие строки:
procedure TForm1.Button1Click(Sender: TObject);
begin
//Показываем диалог
FontDialog1.Execute;
//Задаем шрифт для label'а
Label1.Font:=FontDialog1.Font;
end;
Запускаем программу (F9). После запуска мы можем менять шрифт у надписи.
И напоследок еще одна мелочь. Если, скажем, цвет нашего label был первоначально красный, то при первом вызове диалогового окна для шрифта будет отмечен не красный цвет, а стандартный.
Для разрешения этой мелкой проблемы просто добавьте следующую строку:
begin
FontDialog1.Font:=Label1.Font;
//Показываем диалог
FontDialog1.Execute;
Теперь все будет нормально. С диалогом для задания шрифтов все.
Всё на этом урок закончен.