Browse Source

form: on create check if Application<>nil to give hint about adding Fresnel to program

mattias 1 year ago
parent
commit
9af72080ea
1 changed files with 3 additions and 2 deletions
  1. 3 2
      src/base/fresnel.forms.pas

+ 3 - 2
src/base/fresnel.forms.pas

@@ -273,8 +273,7 @@ var
 
 
 Function FormManager : TFresnelFormManager;
 Function FormManager : TFresnelFormManager;
 var
 var
-  aclass : TFresnelFormManagerClass;
-
+  aClass : TFresnelFormManagerClass;
 begin
 begin
   if _FormManager = Nil then
   if _FormManager = Nil then
     begin
     begin
@@ -531,6 +530,8 @@ end;
 
 
 constructor TFresnelCustomForm.CreateNew(AOwner: TComponent);
 constructor TFresnelCustomForm.CreateNew(AOwner: TComponent);
 begin
 begin
+  if Application=nil then
+    raise EFresnel.Create('Fresnel.Forms.Application=nil, check if unit Fresnel is in the program uses section');
   inherited Create(AOwner);
   inherited Create(AOwner);
   FVisible:=true;
   FVisible:=true;
   Layouter:=TViewportLayouter.Create(nil);
   Layouter:=TViewportLayouter.Create(nil);