Fix pyscripter#397

Author: pyscripter

Source/fmx/WrapFmxForms.pas

@@ -122,7 +122,14 @@   EInvalidFormClass = class(Exception);
 implementation
 
 uses
-  System.Types, System.IOUtils, System.Rtti, System.Messaging;
+  {$IFDEF OSX}
+  Macapi.AppKit,
+  FMX.Platform.Mac,
+  {$ENDIF OSX}
+  System.Types,
+  System.IOUtils,
+  System.Rtti,
+  System.Messaging;
 
 {$IFDEF OSX}
 var
@@ -225,10 +232,17 @@ procedure TPyDelphiApplication.SetDelphiObject(const Value: TApplication);
 end;
 
 function TPyDelphiApplication.Initialize_Wrapper(AArgs: PPyObject): PPyObject;
+{$IFDEF OSX}
+var
+  App: NSApplication;
+{$ENDIF OSX}
 begin
   Application.Initialize();
   {$IFDEF OSX}
-  //The application initialization routine in macOS requires
+  // #397
+  App := TNSApplication.Wrap(TNSApplication.OCClass.sharedApplication);
+   if App.ActivationPolicy > 0 then
+     App.setActivationPolicy(0);
   //the main form standard creation way,
   //due to MainMenu creation and others.
   Application.CreateForm(TInternalMainForm, gDelphiMainForm);