* TfpgApplicationBase now descends from TObject instead of TComponent.

* TfpgApplication now has a FormCount property.
* TfpgApplication now has a Forms array property.
* TfpgApplication.CreateForm now works correctly and NO memory leaks occur.

1 files changed, 4 insertions, 2 deletions

diff --git a/src/gui/gui_form.pas b/src/gui/gui_form.pas
index 1490a75d..8e0c51ec 100644
--- a/src/gui/gui_form.pas
+++ b/src/gui/gui_form.pas
@@ -372,9 +372,11 @@ begin
       caFree:
         begin
           HandleHide;
-          fpgApplication.RemoveComponent(self);
           if IsMainForm then
-            fpgApplication.Terminate;
+            fpgApplication.Terminate
+          else
+            // We can't free ourselves, somebody else needs to do it
+            fpgPostMessage(Self, fpgApplication, FPGM_CLOSE);
         end;
     end;  { case CloseAction }
   end;  { if CloseQuery }