commmondialog 的shoufont参数调用后，为何提示字体没有，要重装字体，怎样解决

Question

在调用CommonDialog的ShowFont方法之前，必须将它的Flags属性置为：
cdlCFBoth 或 cdlCFPrinterFonts 或 cdlCFScreenFonts例如：
CommonDialog1.Flags=cdlCFBoth
CommonDialog1.ShowFont

Answer 1

哦，天了，这样做是不对的  应该，，，
(cmd1 = commondialog1)cmd1.Flags = cdlCFEffects Or cdlCFBoth
{cmd1.FontName = Text1.Font
cmd1.FontBold = Text1.FontBold
cmd1.FontItalic = Text1.FontItalic
cmd1.FontSize = Text1.FontSize
cmd1.FontStrikethru = Text1.FontStrikethru
cmd1.FontUnderline = Text1.FontUnderline}
cmd1.ShowFont