Практическая работа

Создадим приложение, на примере которого рассмотрим работу с диалогами выбора шрифта и цвета. На форме расположим компоненты Button1, Button2, Label1, ColorDialog1(CD1) и FontDialog1(FD1)

Кнопка Button1 вызывает диалог выбора шрифта для текста, содержащегося в Label1. Кнопка Button2 вызывает диалог выбора цвета для окна приложения.

procedure TForm1.Button1Click(Sender: TObject);

Begin

if FD1.execute then

label1.font:=FD1.font;

end;

procedure TForm1.Button2Click(Sender: TObject);

Begin

if CD1.execute then

Form1.color:=CD1.color;

end;