salomao.coelho

Versão 1.90.0.1506

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.