Mit Bordmitteln geht das nicht wirklich, auch scheinen die Shortcuts zerfriemelt.
Meine Behelfsfunktion schaut so aus (FMX.Platform muss eingebunden sein):
Code:
function ActivateMenu(const Menu: TMainMenu): Boolean;
var MenuService: IFMXMenuService;
begin
result := assigned(Menu) and
TPlatformServices.Current.SupportsPlatformService(IFMXMenuService, IInterface(MenuService));
if result then
MenuService.CreateOSMenu(Application.MainForm, Menu);
end;
Ich sollte eventuell erwähnen das das Hauptformular kein Menü haben sollte, sondern entweder ein Unterformular oder ein Datenmodul.