Delphi VCL force menu repaint

Question

I'm setting the main menu font (via Screen.MenuFont) to match the name/size of the font used everywhere else in the program. But the main menu doesn't refresh with the rest of the form - I have to pass the mouse over each menu item to have it repaint the item in the new font. How can I force the main menu to repaint on the change?

Answer 1

This is really easy:

Just call the DrawMenuBar function and pass the handle to the form containing the menu:

procedure TForm1.FormClick(Sender: TObject);
begin
  Screen.MenuFont.Name := 'Arial Black';
  DrawMenuBar(Handle);
end;