Delphi7.0改变菜单中的字体样式，本程序其实实现了两种功能，1、枚举系统中所有已安装的字体，并加载到Listbox列表中供选择，2，改变字体样式，选中列表中的任意字体样式，单击即可改变菜单中的文字样式，为窗口中其它区域的文字设置字体样式的时候也可参考。　　begin　　ListBox1.Items:=Screen.Fonts;字体样式　　self.MainMenu1.AutoHotkeys:=maManual;　　self.MainMenu1.AutoLineReduction:=maManual;　　Screen.MenuFont.Size:=12;字号　　end;