The top-level items on the Mac menu bar usually look like this:
Apple/system menu ('About this Mac', 'System Preferences...', etc.)
Application menu ('About XXX', 'Services', 'Hide XXX', 'Hide Others',
'Show All', 'Quit XXX')
File menu
Edit Menu
...
FMX ( ) TMainMenu . , ( - ), OS X; Mac. , (TFileHideApp, TFileHideAppOthers, TFileExit). , :
- , TActionList
- , .
- ...
- TFileHideApp, TFileHideAppOthers TFileExit OK
- , , TMainMenu
- , ; , () mnuApp
- mnuApp; Object Inspector, Action FileHideApp1, - FileHideAppOthers, - FileExit1; (-),
- , OnCreate , Object Inspector
- , mnuApp, OS X. , File | Exit, OS X, :
...
procedure TForm1.FormCreate(Sender: TObject);
begin
mnuApp.Visible := (TOSVersion.Platform = pfMacOS);
itmExit.Visible := (TOSVersion.Platform <> pfMacOS);
end;