Search code examples
delphidelphi-2010

How can I change the fontsize of the mainmenu items in Delphi?


One would think that there would be a Font property for MainMenu, since there is one for just about everything else e.g. Buttons, Labels, etc.


Solution

  • Write, for instance,

    procedure TForm2.FormCreate(Sender: TObject);
    begin
      Screen.MenuFont.Name := 'Arial Black';
    end;
    

    and make sure that the OwnerDraw property of your TMainMenu is set to true.