Dicas - Formulário com senha de acesso

Veja nessa dica, como obrigar o usuário a colocar senha quando abrir um formulário.

Formulário com senha de acesso

 

Veja nesta dica como impor uma senha antes de entrar no formulário principal. O procedimento fica assim:

 

procedure TForm1.FormCreate(Sender: TObject);

var

  senha: string[6];

begin

  senha := inputbox('Código','Digite a Senha de Acesso','');

  if (senha<>'MASTER')and(senha<>'master') then

  begin {no lugar de Master digite sua senha}

SHOWMESSAGE('SENHA INCORRETA');

    halt;

  end;

end;

 

Ebook exclusivo
Dê um upgrade no início da sua jornada. Crie sua conta grátis e baixe o e-book

Artigos relacionados