修改 Windows 下的 Style，找到下面二个 Style ，修改其中的 text 内的 font 大小：
将 FMX.Menus.pas 复制到自己的工程目录内，再修改如下内容：
TMenuBar.
Height := ;
<span style="color: #0000ff;">function<span style="color: #000000;"> TMenuItem.CalcRenderSize: TPointF;
<span style="color: #0000ff;">begin
<span style="color: #008000;">//<span style="color: #008000;">.... 略 .....
Result := CalcVisibleObjectsItemSize(C,PointF(<span style="color: #800080;">0,<span style="color: #800080;">23)); <span style="color: #008000;">//<span style="color: #008000;"> 23 为子选单高度，自行修改
<span style="color: #008000;">//<span style="color: #008000;">.... 略 .....
<span style="color: #0000ff;">end;
<span style="color: #0000ff;">begin
<span style="color: #008000;">//<span style="color: #008000;">.... 略 .....
Result := CalcVisibleObjectsItemSize(C,PointF(<span style="color: #800080;">0,<span style="color: #800080;">23)); <span style="color: #008000;">//<span style="color: #008000;"> 23 为子选单高度，自行修改
<span style="color: #008000;">//<span style="color: #008000;">.... 略 .....
<span style="color: #0000ff;">end;
效果：
