Sfoglia il codice sorgente

* Inherited was not called

git-svn-id: trunk@17203 -
michael 14 anni fa
parent
commit
5194a08195
1 ha cambiato i file con 1 aggiunte e 0 eliminazioni
  1. 1 0
      packages/fcl-web/src/base/custweb.pp

+ 1 - 0
packages/fcl-web/src/base/custweb.pp

@@ -557,6 +557,7 @@ end;
 
 constructor TCustomWebApplication.Create(AOwner: TComponent);
 begin
+  Inherited Create(AOwner);
   FWebHandler := InitializeWebHandler;
   FWebHandler.FOnTerminate:=@DoOnTerminate;
 end;