如何禁用TFontDialog中的样式列表?

Y.N*_*Y.N 7 delphi fonts

如何禁用TFontDialog中的样式列表?

我想允许用户只选择字体名称和大小.

使用''fdEffects''选项已禁用三角效果等效果.

Ser*_*yuz 9

API的字体公共对话框(VCL组件是其包装器)不提供该功能.有关详细信息,请参阅文档

您可以OnShow在对话框的事件处理程序中自行禁用样式列表框:

EnableWindow(GetDlgItem(FontDialog.Handle, cmb2), False);
Run Code Online (Sandbox Code Playgroud)

或者完全隐藏它就像fdEffects效果复选框一样:

ShowWindow(GetDlgItem(FontDialog.Handle, cmb2), SW_HIDE);
Run Code Online (Sandbox Code Playgroud)

'cmb2'在'winapi.dlgs.pas'中定义.