Геннадий Натанович Гутман - Учебные мини-проекты на Delphi

процедура
Button1Click. Имя процедуры состоит из имени объекта Button1 и части
имени события OnClick. Параметром процедуры является отправитель со-

общения. Для написания процедур обработки событий этот параметр используется редко, так что мы пока не будем обращать на него внимания.
Для того чтобы увеличить размер шрифта, в тело процедуры вставим
одну строчку кода:
Label1.Font.Size := Label1.Font.Size*2;

При каждом нажатии кнопки размеры метки будут увеличиваться в
два раза. Но положение левого верхнего угла метки останется неизменным. Из-за этого текст будет уходить за правую границу Формы. (Правда, при этом автоматически появятся полосы прокрутки, позволяющие
заглянуть за “горизонт”.)
Ограничим поэтому максимальный (а заодно и минимальный) размер шрифта. В раздел implementation добавим две константы:
7

const MaxSize = 96;
MinSize = 6;

Начальное значение размера шрифта (например, 24) можно установить в Инспекторе объектов.
В процедуре TForm1.Button1Click перед присваиванием добавим
проверку:
if Label1.Font.Size*2 --">