Adding TForm wrapper

Author: lmbelo

Source/fmx/WrapFmxForms.pas

@@ -50,6 +50,17 @@ TPyDelphiCustomPopupForm = class(TPyDelphiCustomForm)
  property DelphiObject: TCustomPopupForm read GetDelphiObject write SetDelphiObject;
  end;
 
+ TPyDelphiForm = class(TPyDelphiCustomForm)
+ private
+ function GetDelphiObject: TForm;
+ procedure SetDelphiObject(const Value: TForm);
+ public
+ // Class methods
+ class function DelphiObjectClass: TClass; override;
+ // Properties
+ property DelphiObject: TForm read GetDelphiObject write SetDelphiObject;
+ end;
+
 implementation
 
 uses
@@ -94,6 +105,7 @@ procedure TFormsRegistration.RegisterWrappers(
  APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiCommonCustomForm);
  APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiCustomForm);
  APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiCustomPopupForm);
+ APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiForm);
 end;
 
 { TPyDelphiApplication }
@@ -166,6 +178,23 @@ procedure TPyDelphiCustomPopupForm.SetDelphiObject(
  inherited DelphiObject := Value;
 end;
 
+{ TPyDelphiForm }
+
+class function TPyDelphiForm.DelphiObjectClass: TClass;
+begin
+ Result := TForm;
+end;
+
+function TPyDelphiForm.GetDelphiObject: TForm;
+begin
+ Result := TForm(inherited DelphiObject);
+end;
+
+procedure TPyDelphiForm.SetDelphiObject(const Value: TForm);
+begin
+ inherited DelphiObject := Value;
+end;
+
 initialization
  RegisteredUnits.Add(TFormsRegistration.Create);