修改 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;

效果：