Fórum Duvida no form login #285710
22/06/2005
0
Bom dia pessoal criei um forlario de login para uma aplicação mas se alguem fechar o formulario de login ele fecha o formulario e e abre o form principal alguem sabe o q tenho q fazer para que caso alguem feche o form de login ele termine a aplicação sem liberar o form principal,liberando somente se a pessoa tiver logada?
Arturbarbozaa
Curtir tópico
+ 0
Responder
Posts
22/06/2005
Lperosa
Se o login for inválido use
Application.Terminate;
Abort;
Application.Terminate;
Abort;
Responder
Gostei + 0
22/06/2005
Arturbarbozaa
pus o seguinte código no close do formulario login:
procedure Tfrmlogin2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if DataModule1.ADODataSet1.Eof=false then
Application.Terminate;
action:=cafree;
end;
tudo bem o problema do alt+f4 que quando fechava o form de login ia para o form principal resolveu mas agora o click do ok naum funciona mais ou seja mesmo q o login esteja certo ele naum abre o form principal ficando só no form login o q está errado?
procedure Tfrmlogin2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if DataModule1.ADODataSet1.Eof=false then
Application.Terminate;
action:=cafree;
end;
tudo bem o problema do alt+f4 que quando fechava o form de login ia para o form principal resolveu mas agora o click do ok naum funciona mais ou seja mesmo q o login esteja certo ele naum abre o form principal ficando só no form login o q está errado?
Responder
Gostei + 0
22/06/2005
Lperosa
procedure Tfrmlogin2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if DataModule1.ADODataSet1.Eof=false then
Application.Terminate;
Este teste vc tem q fazer apenas quando o teste de login for inválido e o usuário clicar em cancelar.
Para o problema do Alt+F4 use no Tfrmlogin2.FormCloseQuery() a variável CanClose (pode fechar).
Ex.: CanClose := (BtnOk.Focused) or (BtnCancel.Focused);
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)