比如说,写一个procedure TForm2.FormCreate(Sender: TObject); begin Screen.MenuFont.Name := 'Arial Black'; end; 并确保您的TMainMenu的OwnerDraw属性设置为true。