Jump to content

uniMainModule


MSMK

Recommended Posts

On 2/7/2019 at 9:24 PM, Sherzod said:

Здравствуйте,

Вам стоит позаботиться об уничтожении этих объектов в событии OnDestroy

не могу понять жизненный цикл сессии, сначала отрабатывает событие UniGUIMainModuleCreate, потом UniGUIMainModuleBeforeLogin и после почему то UniGUIMainModuleDestroy

Link to comment
Share on other sites

Just now, =GGG= said:

не могу понять жизненный цикл сессии, сначала отрабатывает событие UniGUIMainModuleCreate, потом UniGUIMainModuleBeforeLogin и после почему то UniGUIMainModuleDestroy

procedure TClient.UniGUIMainModuleCreate(Sender: TObject);
begin
       Settings := TSettings.Create;     

end;

procedure TClient.UniGUIMainModuleBeforeLogin(Sender: TObject;
  var Handled: Boolean);
begin
        Settings.CurrentUserInfo.Clear;
end;

procedure TClient.UniGUIMainModuleDestroy(Sender: TObject);
begin  

        if Assigned(Settings) then

                  Settings.Free;

end;

 

Link to comment
Share on other sites

6 minutes ago, =GGG= said:

procedure TClient.UniGUIMainModuleCreate(Sender: TObject);
begin
       Settings := TSettings.Create;     

end;

procedure TClient.UniGUIMainModuleBeforeLogin(Sender: TObject;
  var Handled: Boolean);
begin
        Settings.CurrentUserInfo.Clear;
end;

procedure TClient.UniGUIMainModuleDestroy(Sender: TObject);
begin  

        if Assigned(Settings) then

                  Settings.Free;

end;

 

 public
    { Public declarations }

    Settings: TSettings;
 
  end;

Link to comment
Share on other sites

Please sign in to comment

You will be able to leave a comment after signing in



Sign In Now
×
×
  • Create New...