Dicas - Formulário com senha de acesso

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (0)  (0)

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;

 

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?