TMainMenu: Änderung der Schriftgröße ändert nicht den Abstand der Einträge

[KHJ]

Danke für die Tips.
Der einfachste Weg, der fast alles abdeckt:

Delphi-Quellcode:

  // set the menu font
  Screen.MenuFont.Assign(Self.Font);

  // push and redraw the menu by inserting and deleting a menu item
  lTempItem := TMenuItem.Create(mmuMainMenu);
  try
    lTempItem.Name := 'tempitem';
    mmuMainMenu.Items.Add(lTempItem);
    mmuMainMenu.Items.Remove(lTempItem);
  finally
    lTempItem.Free;
  end;