Fórum Tela de Entrada, com senha! Sem Banco de Dados! #227964
26/04/2004
0
Como posso colocar uma tela de senha no meu programa, ou seja, se o usuário digitar a senha certa ele ativa o form principal, senão ele volta pra tela anterior para que o usuário tente novamente!
Só que este não volta para o form senha, o que devo fazer?
Fiz o seguinte:
//No Momento que inicio o programa ´View Source´
FormSenha:=TFormSenha.Create(Application);
FormSenha.ShowModal;
// Abre a tela senha
if SenhaED.Text <> ´SENHA´ then
ShowMessage(´Senha Invalida´)
else
begin
FormSenha:=Nil;
FormSenha.Free;
Application.Initialize;
Application.CreateForm(TFormPrincipal, FormPrincipal);
Application.Run;
end;
end;
Só que este não volta para o form senha, o que devo fazer?
Fiz o seguinte:
//No Momento que inicio o programa ´View Source´
FormSenha:=TFormSenha.Create(Application);
FormSenha.ShowModal;
// Abre a tela senha
if SenhaED.Text <> ´SENHA´ then
ShowMessage(´Senha Invalida´)
else
begin
FormSenha:=Nil;
FormSenha.Free;
Application.Initialize;
Application.CreateForm(TFormPrincipal, FormPrincipal);
Application.Run;
end;
end;
Wgm8
Curtir tópico
+ 0
Responder
Posts
26/04/2004
Fatrix
Então, tente fazer da seguinte forma:
E no evento OnClose do seu form de Senha
Espero ter ajudado. :lol:
if edSenha.Text <> ´SENHA´ then showmessage(´Senha Invalida´) else begin FrmLogin.Visible := false; Form1.Show; end;
E no evento OnClose do seu form de Senha
Action := CaFree;
Espero ter ajudado. :lol:
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)