Opens form closes another

[salomao.coelho]

I have an application that calls the login screen and right after it calls the corresponding Form as shown below:

procedure TFrmLoginCadFor.UniButton1Click(Sender: TObject);

var
 usuario,users,password:string;
begin
   mm_Ponto.querySenha.Locate('Login',edtFuncionario.Text,[]);
   users:= mm_Ponto.querySenhaLogin.AsString;
   password:=mm_Ponto.querySenhaSenha.AsString;
 If (edtFuncionario.text = users) AND (editsenha.text = password) then
   begin
    if frmCadastroFuncionario = nil then
      frmCadastroFuncionario := tfrmCadastroFuncionario.Create(UniApplication);
      frmCadastroFuncionario.ShowModal(
         Procedure(Sender: TComponent; AResult:Integer)
           begin
           frmCadastroFuncionario := nil;
           FrmLoginCadFor.Close(UniApplication);
           end );
   end
    else
       ShowMessage('Login e Senha não são Validos');
    end;
so I can't close the login screen after opening the other form.

[Hayri ASLAN]

2 hours ago, salomao.coelho said:

I have an application that calls the login screen and right after it calls the corresponding Form as shown below:

procedure TFrmLoginCadFor.UniButton1Click(Sender: TObject);

var
 usuario,users,password:string;
begin
   mm_Ponto.querySenha.Locate('Login',edtFuncionario.Text,[]);
   users:= mm_Ponto.querySenhaLogin.AsString;
   password:=mm_Ponto.querySenhaSenha.AsString;
 If (edtFuncionario.text = users) AND (editsenha.text = password) then
   begin
    if frmCadastroFuncionario = nil then
      frmCadastroFuncionario := tfrmCadastroFuncionario.Create(UniApplication);
      frmCadastroFuncionario.ShowModal(
         Procedure(Sender: TComponent; AResult:Integer)
           begin
           frmCadastroFuncionario := nil;
           FrmLoginCadFor.Close(UniApplication);
           end );
   end
    else
       ShowMessage('Login e Senha não são Validos');
    end;
so I can't close the login screen after opening the other form.

Hi,

Which version of UniGUI are you using?

[salomao.coelho]

12 hours ago, Hayri ASLAN said:

Hi,

Which version of UniGUI are you using?

Versão 1.90.0.1506

[Sherzod]

45 minutes ago, salomao.coelho said:

Versão 1.90.0.1506

Hello,

If you are not using the trial version, please adjust your forum email address first: