Fórum Como encerrar um sistema através de outra tela #192731

04/11/2003

0

Olá!
Quando abro meu programa, antes de mostrar a tela principal, é mostrado a tela de login. O usuário entra com a chave e a senha, se o usuário existir na tabela de cadastro de usuários, o programa fecha a tela de login e mostra a tela principal.
Sendo que esta tela de login tem um botão para confirmar e outro para fechar.
Quando o usuário clicar em fechar, na tela de login, o sistema deverá ser encerrado, sem mostrar a tela principal. Este é o problema, pois não consigo encerrar o sistema pela tela de login, já tentei colocar um Exit neste botão, mas ele fecha o login e mostra o principal.
Como faço para encerrar o sistema?

Desde já agradeço.


Bclr

Bclr

Responder

Posts

04/11/2003

Marcelo.c

Experimente:

Application.Free;


Responder

Gostei + 0

05/11/2003

Bclr

Infelizmente não funcionou.
O que tenho é o seguinte:
o program do meu projeto está chamando o form principal, assim:

Application.Initialize;
Application.CreateForm(Tfrm_principal, frm_principal);
Application.Run;


Em Tfrm_principal.FormCreate eu chamo tela de login, assim:

application.createform(tfrm_login,frm_login);
frm_login.showmodal;
frm_login.Destroy;
refresh;


Gostaria de saber o que devo fazer para quando o usuário clicar no botão Fechar da tela de login, o sistema se encerrará???


Responder

Gostei + 0

05/11/2003

Salupe

então tenta colocar dentro do click do botao fechar o comando
Application.Terminate;

se nao der manda fechar o form principal do sistema, sem ter aberto outro lógicamente (isso se os seus forms só são criados durante a execução e não na inicialização do sistema).


Responder

Gostei + 0

05/11/2003

Hugo_sergio

Antes do Application.Terminate use FormPrincipal.Hide para esconder o formulario antes de sair.


Responder

Gostei + 0

05/11/2003

Marcela

Halt;


Responder

Gostei + 0

05/11/2003

Bclr

Valeu galera!!!
Basta colocar um Application.Terminate;
Resolvido


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar