“字体”对话框允许用户任意选择一种字体并设置字体样式，用户选择的字体包含在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字符集字体 |