fdNoOEMFont 如果是真值，字体组合框中将不显示向量字体。
fdShowHelp 如果是真值，对话框显示Help按按钮。
fdWysiwyg 如果是真值， 只有打印和屏幕均可得到的字体才会出现在字体 组合框中。 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
例程中(Edit/Font)菜单具有设置文本字体的功能，其代码如下：
procedure TEditForm.SetFont(Sender : TObject);
begin
FontDialog.Font := Memo1.Font; if FontDialog1.Execult then Memo1.Fout := FontDialog1.Font; SetEdit Rect; end;
[目录] [上一页] [下一页]