Question

delphi下拉菜单（mainmenu）字体怎么设置？

之前有看到人这样说 ，但是我的字体名字不管怎么换都不变，试过了隶书，微软雅黑等等！！！

窗体上放一MainMenu1，包含的菜单项为MenuItem1,MenuItem2...
设置为MainMenu的OwnerDraw为True,
MenuItem1的OnDrawItem事件：
procedure TForm1.MenuItem1DrawItem(Sender: TObject; ACanvas: TCanvas;
ARect: TRect; Selected: Boolean);
begin
ACanvas.FillRect(ARect);
ACanvas.Font.Size:=20; //设置为足够大的字号
ACanvas.Font.Name:= 'Times New Roman '; //设置为你喜欢的字体
//输出菜单项
ACanvas.TextOut(ARect.Left,ARect.Top,(Sender as TMenuItem).Caption);
end;
MenuItem1的OnMeasureItem事件：
procedure TForm1.MenuItem1MeasureItem(Sender: TObject; ACanvas: TCanvas;
var Width, Height: Integer);
begin
Height:=40; //设置为足够高以容纳你的菜单项
Width:=200; //设置为足够宽以容纳你的菜单项
end;
将其他菜单项的OnDrawItem设置为MenuItem1DrawItem
OnMeasureItem设置为MenuItem1DrawItem

Answer 1

将菜单的的OwnerDraw为True

然后自定义重绘事件，就可以了，代码如下：

procedure TForm1.N1DrawItem(Sender: TObject; ACanvas: TCanvas;
  ARect: TRect; Selected: Boolean);
begin
   ACanvas.FillRect(ARect);
   ACanvas.Font.Size:=15;         //设置为足够大的字号
   ACanvas.Font.Name:= '仿宋';     //设置为你喜欢的字体
   //输出菜单项
   ACanvas.TextOut(ARect.Left,ARect.Top,(Sender as TMenuItem).Caption);
end;

procedure TForm1.N1MeasureItem(Sender: TObject; ACanvas: TCanvas;
  var Width, Height: Integer);
begin
  Height:=40;       //设置为足够高以容纳你的菜单项
  Width:=200;     //设置为足够宽以容纳你的菜单项
end;

把要重绘的菜单项的事件指以上事件即可，效果如下：

右键弹出菜单相同

Answer 2

我试了代码没问题，会不会你 MainMenu的OwnerDraw没有设置为True,

追问

设置了，你那里不同字形也都设置了？

追答

我是随便改一下字体 ，跟你的例子一样。

追问

我只能设置字体大小，字体字形不能

Answer 3

Delphi默认菜单控件mainmenu是不能设置字体的，因为标题栏字体、菜单字体WINDOWS统一的外观的一部分（也是所有程序都是一样的），由于要设置可以自绘或使用第三方控件如XPMenu等。

追问

不会用这个插件，网上也搜不到讲解。。。

Answer 4

改变Font Type的属性叫Typeface
默认情况下,Android只支持
sans,
serif,
monospace
三种内嵌字体.
如果要使用自定义的字体,请将字库的ttf导入资源,再引用(过程不简单,具体请谷歌)

追问

安卓？

追答

恩

追问

我用的是电脑和安卓有什么关系？