Da Limite de erro no como faço........
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
Curtidas 0
Respostas
Rafael Mattos
28/11/2003
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] :)
GOSTEI 0
Jairo-go
28/11/2003
Raf.....abrigado pela dica............[ ].....jairo
GOSTEI 0