程序中的对话框应用（3）- “字体”对话框

“字体”对话框允许用户任意选择一种字体并设置字体样式，用户选择的字体包含在Font属性中，使用“字体”对话框可为任意具有Font属性的组件设置字体。

1、使用“字体”对话框设置Memo字体样式示例：

procedure TForm1.Button1Click(Sender: TObject);
begin
  FontDialog1.Execute;
  Memo1.Font.Name:= FontDialog1.Font.Name;
  Memo1.Font.Size:= FontDialog1.Font.Size;
  Memo1.Font.Style:= FontDialog1.Font.Style;
  Memo1.Font.Color:= FontDialog1.Font.Color;//就是将“字体”对话框属性赋值给带有font属性的组件
end;

 

2、在“字体”对话框中显示引用按钮，修改Options属性中的fdApplyButton属性为True，对话框中将出现一个“应用”按钮

 

 

Options属性说明

属性	说明
fdAnsiOnly	只显示windows字符集字体
fdApplyButton	无论是否有OnApply处理过程，“字体”对话框中均显示“应用“按钮
fdEffects	显示效果组合框，该组合框包含了删除线、下划线、复选框、颜色下拉列表框
fdFixedPitchOnly	只显示等宽字体
fdForceFontexist	只允许用户在字体组合框中输入存在的字体，如果输入一个不存在的字体，单击”确定“按钮将弹出错误提示对话框
fdLimitSize	激活MaxFontSize属性和MinFontSize属性，限制字体大小
fdNoFaceSel	在字体对话框打开时，不显示选中的字体
fdNoOEMFonts	在字体对话框中只显示非OEM字体
fdScalableOnly	在字体对话框中只显示缩放的字体
fdNoSimulations	在字体对话框中只显示实际字体，而不是DGI字体模拟
fdNoSizeSel	在对话框打开时不显示选中的字体大小
fdNoStyleSel	在对话框打开时不显示选中字体的风格
fdNoVectorFontes	与fdNoOEMFnts相同
fdShowHelp	在对话框中显示”帮助“按钮
fdTrueTypeOnly	在字体对话框中只显示trueType字体
fdWysiwyg	在字体对话框中只显示屏幕设备和打印机设备都可用的字体
fdAnsiOnly	只显示windows字符集字体