Como encerrar um sistema através de outra tela

Delphi

04/11/2003

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

Curtidas 0

Respostas

Marcelo.c

Marcelo.c

04/11/2003

Experimente:

Application.Free;


GOSTEI 0
Bclr

Bclr

04/11/2003

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á???


GOSTEI 0
Salupe

Salupe

04/11/2003

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).


GOSTEI 0
Hugo_sergio

Hugo_sergio

04/11/2003

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


GOSTEI 0
Marcela

Marcela

04/11/2003

Halt;


GOSTEI 0
Bclr

Bclr

04/11/2003

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


GOSTEI 0
POSTAR