Создайте приложение. По нажатию на соответствующие кнопки (шрифт, размер, начертание, цвет) появляются кнопки с названиями данных атрибутов, при нажатии на которые будет меняться цвет, размер, начертание и шрифт надписи.
Поместите на форму метку и 20 кнопок Button (переименуйте их соответственно В1-В20). При запуске программы в окне должны быть видны надпись «Delphi5» и кнопки «Шрифт», «Размер», «Начертание» и «Цвет». Поэтому для всех остальных кнопок свойству Visible установите значение False.
Назначьте событие OnClick на кнопку «Шрифт»:
procedure TForm1.B1Click(Sender: TObject);
Begin
b5.visible:=true;
b9.visible:=true;
b13.visible:=true;
b17.visible:=true;
end;
Аналогично опишите процедуры на кнопки «Размер», «Начертание» и «Цвет».
При щелчке по кнопке «Arial» выполняется следующая процедура:
procedure TForm1.B5Click(Sender: TObject);
Begin
label1.font.name:='Arial';
end;
Аналогично опишите процедуры на оставшиеся кнопки.
