将菜单的的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;
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024