修改 Windows 下的 Style，找到下面二个 Style ，修改其中的 text 内的 font 大小：
将 FMX.Menus.pas 复制到自己的工程目录内，再修改如下内容：
constructor TMenuBar.Create(AOwner: TComponent); begin //.... 略 ..... Height := 24; // 24 为主选单高度，自行修改 //.... 略 ..... end; function TMenuItem.CalcRenderSize: TPointF; begin //.... 略 ..... Result := CalcVisibleObjectsItemSize(C, PointF(0, 23)); // 23 为子选单高度，自行修改 //.... 略 ..... end;
效果：
Firemonkey 调整 MainMenu 字型大小 (D10)
原文：http://www.cnblogs.com/onechen/p/5176236.html