* Added the global variable CustomApplication. If this variable is set

   when a Application-object is initialized, other units can access this
   Application-object without knowing its exact type or unit it is 
   defined in.

git-svn-id: trunk@13747 -

packages/fcl-base/src/custapp.pp

@@ -80,6 +80,8 @@ Type
     Property StopOnException : Boolean Read FStopOnException Write FStopOnException;
   end;
 
+var CustomApplication : TCustomApplication = nil;
+
 Implementation
 
 {$if defined(darwin) and (defined(cpu386) or defined(cpupowerpc32))}