Form class validation

Author: lmbelo

Source/fmx/WrapFmxForms.pas

@@ -5,7 +5,7 @@
 interface
 
 uses
-  System.Classes, FMX.Forms,
+  System.Classes, System.SysUtils, FMX.Forms,
   PythonEngine, WrapFmxTypes, WrapDelphiClasses, WrapFmxControls;
 
 type
@@ -88,6 +88,8 @@   TPyDelphiScreen = class(TPyDelphiComponent)
     property DelphiObject: TScreen read GetDelphiObject write SetDelphiObject;
   end;
 
+  EInvalidFormClass = class(Exception);
+
 implementation
 
 uses
@@ -169,6 +171,7 @@   TCommonCustomFormClass = class of TCommonCustomForm;
   //Delphi class that would have the same name as the Python class.
   //This would allow Python to instanciate an existing Delphi form class,
   //insted of only using a blank form.
+  LFormClass := nil;
   if (ob_type <> PythonType.TheTypePtr) then begin
     LClassName := string(ob_type.tp_name);
     LClass := GetClass(LClassName);
@@ -182,6 +185,10 @@   TCommonCustomFormClass = class of TCommonCustomForm;
       LFormClass := TCommonCustomFormClass(DelphiObjectClass);
   end;
 
+  if not Assigned(LFormClass) then
+    raise EInvalidFormClass.CreateFmt('Type %s is not a valid form class', [
+      DelphiObjectClass.ClassName]);
+
   //if it's not a design form, so we create it as a non-resourced form,
   //using the non-resourced constructor.
   //if the Owner is TApplication, then we have to call its CreateForm method,