procedure TForm1.Button2Click(Sender: TObject);
begin
form1.Label1.Caption:='山东鲁能奥特';
if form1.FontDialog1.Execute then
begin
form1.Label1.Font.Size:=form1.FontDialog1.Font.Size;//字体大小
form1.Label1.Font.Style:=form1.FontDialog1.Font.Style;//字体类型(粗体、斜体、下划线)
form1.Label1.Font.Color:=form1.FontDialog1.Font.Color;//字体颜色
form1.Label1.Font.Name:=form1.FontDialog1.Font.Name;//字体名称
end;
end;