Fórum Da Limite de erro no como faço........ #197716
28/11/2003
0
Como faço quando o usuário digita mais de 4 vez, a senha errada no edit, e da um mensagem e logo fechar o formulário....abraço,,,,Jairo
Jairo-go
Curtir tópico
+ 0
Responder
Posts
28/11/2003
Rafael Mattos
begin
I := I+1;
if Edit1.text <> ´TESTE´ then begin
if I >= 4 then
Application.Terminate;
beep;
MessageDlg(´Senha Incorreta´,mtInformation,[mbOK],0);
end;
end;
[b:086538c25b]Basta só vc usar sua criatividade agora[/b:086538c25b] :)
I := I+1;
if Edit1.text <> ´TESTE´ then begin
if I >= 4 then
Application.Terminate;
beep;
MessageDlg(´Senha Incorreta´,mtInformation,[mbOK],0);
end;
end;
[b:086538c25b]Basta só vc usar sua criatividade agora[/b:086538c25b] :)
Responder
Gostei + 0
28/11/2003
Jairo-go
Raf.....abrigado pela dica............[ ].....jairo
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)