Duvida no form login
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
Curtidas 0
Respostas
Lperosa
22/06/2005
Se o login for inválido use
Application.Terminate;
Abort;
Application.Terminate;
Abort;
GOSTEI 0
Arturbarbozaa
22/06/2005
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?
GOSTEI 0
Lperosa
22/06/2005
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);
GOSTEI 0