-
Стандартный диалог для выбора шрифта
Рассмотрим диалоговые окна для задания шрифта. Он расположен на вкладке 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;
//Задаем шрифт для label'а
Label1.Font:=FontDialog1.Font;
End;
Теперь все будет нормально.
Упражнения:
Создайте свой проект, используя рассмотренные компоненты на одну из следующих тем (можно предложить свою тему):
-
Анкетирование по какому-либо признаку
-
Тестирование знаний по какой-либо теме
-
Список студентов и их оценки за сессию
-
Блокнот дел по текущему дню
-
Телефонный справочник
-
Заполнение данных о работодателе
-
Расчет квартплаты по внесенным данным квартиросъемщика
-
Подписка на печатные издания
-
Справочник лекарственных средств
-
Регистрация паспорта
-
Получение водительских прав в автошколе
-
Тест по правилам дорожного движения
-
Состав команд России по футболу
-
Составление киноафишы по кинотеатрам
-
Продажа авиабилетов
-
Регистрация абонентов библиотеки
-
Формирование фактуры на приходящий товар
-
Регистрация больных в поликлинике
-
Составление прогноза погоды на неделю, месяц, год
-
Составление программы телепередач на неделю
Ввод и вывод внесенных данных организовать через файл, используя диалоговые окна или текстовые файлы.