可否有办法使菜单的字体改变???(100分)

  • 主题发起人 主题发起人 52free
  • 开始时间 开始时间
5

52free

Unregistered / Unconfirmed
GUEST, unregistred user!
我的程序的其余部分的字体都是"宋体,小四号"
就是菜单字体仍是系统默认的MS 8,和程序显得不协调
可否让菜单字体也改成"宋体,小四号"
 
设置菜单的字体大小应先将菜单的OwnerDraw设为true,再在formCreate中设置
Screen.MenuFont.Size := 大小;
Screen.MenuFont.name=......;
 
我刚才试着用一些方法结果失败了,
从屏幕属性里面更改菜单的字体,反映到了应用程序中。不过所有应用程序的菜单
都被更改了,tmainmenu中的菜单是画上去的,TMenuItem.DoDrawText中用到了下面的函数,
DrawText(Handle, PChar(Text), Length(Text), Rect, Flags);看看有没有第三方的控件
或者自己重新写一个
 

Similar threads

D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
后退
顶部