Fórum Problamas com login, o onclose não me responde direito #174774

13/08/2003

0

Ola pessoal!!!
Estou tentando colocar em um sistema um login, criei a tabela, coloquei no onshow do form principal para chamar a form de login, faço a verificação do usuário, da senha e até ai tudo bem, perfeito, o problema é que quando se clica (la no alto esquedo do form (X)) para fechar o form eu não consigo travar a abertura do form principal, se eu colocar no evento onclose do form de login para se ele for fechado feche tambem o form principal, posso colocar tudo certinho, usuario e senha que ele fecha tudo. estou pra ficar louco com isso, não consigo nem dormir, que sonho com esse negocio. ja tentei de diversas maneiras mas pode ser que este me dando um branco tambem, tenho trabalhado muito. se alguem puder me ajudar ficarei muito grato.


Machado

Machado

Responder

Posts

13/08/2003

Nildo

Simples!
Deixe seu formulario de Login como sendo o formulario principal do Form.
Dae vai ter o botao Ok e Cancelar certo? Quando clicar em OK vc confere a senha, se der certo vc abre seu formulario, e fecha o de Login. Se der Cancelar vc soh fecha o de Login, e consequentemente o principal não abrirá.

Entendeu?
Qualquer duvida responde essa mensagem.


Responder

Gostei + 0

13/08/2003

Nildo

Mais uma coisa:
Tira o show do formulario de login no onShow do principal.


Responder

Gostei + 0

13/08/2003

Nildo

Ou entao vc faz assim (eh melhor):

No onShow do formulario de login vc faz assim:
Tag := 0;

Quando clicar em OK, se a senha conferiu vc coloca assim:
Tag := 1;

Dae vc coloca no OnClose:

IF Tag=0 then
FormularioPrincipal.close;

Pronto!
Soh issu!


Responder

Gostei + 0

13/08/2003

Okama

Vc pode desabilitar o botão Fechar [X] do form marcando borderIcon-biSystemMenu := False ou testando o fechamento do formLogin no onshow do FormPrincipal:


if formLogin.ShowModal <> mrOk then
Application.Terminate;

nesse caso feche o formlogin (normalmente) com ModalResult := mrOk e Cancelando feche com ModalResul := mrCancel;


Responder

Gostei + 0

13/08/2003

Machado

:lol: Ai galera valeu, a cada dia que passar fico muito mais satisfeito em fazer parte da familia Delphi, que todos possamos ajudar um ao outro.

Utilizei o tag é mais conveniente.


Responder

Gostei + 0

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

Aceitar