Главная Всё о Delphi Регистрация

Вход

Приветствую Вас Гость | RSSПонедельник, 15.10.2018, 16:50
Меню сайта

Категории каталога
Начинающим [44]
Материалы для начинающих
Трюки [2]
Трюки
Разное [94]
Материалы на разные темы

Наш опрос
Какой версией Delphi вы пользуетесь?
Всего ответов: 118

Каталог статей
Главная » Статьи » Начинающим

Урок 20. Диалог для выбора шрифта

Работа с диалогом выбора шрифта. Начиная с этого урока некоторое время, мы посвятим изучению стандартных диалоговых окно. В частности, предполагается рассмотреть диалоговые окна для задания шрифта, цвета, открытия и сохранения файлов. Начнем с диалога для выбора шрифта. Он расположен на вкладке 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;

 

Теперь все будет нормально. С диалогом для задания шрифтов все.

Всё на этом урок закончен.

Категория: Начинающим | Добавил: Дубин (16.08.2007) | Автор: Дубин Михаил Олегович
Просмотров: 584 | Рейтинг: 0.0/0 |

Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Форма входа

Поиск

Друзья сайта

Статистика

Рейтинг@Mail.ru

Реклама

Copyright MyCorp © 2018Сайт управляется системой uCoz