Tela de Entrada, com senha! Sem Banco de Dados!

Delphi

26/04/2004

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;


Wgm8

Wgm8

Curtidas 0

Respostas

Fatrix

Fatrix

26/04/2004

Então, tente fazer da seguinte forma:

    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:


GOSTEI 0
POSTAR