Declaracion de variables
Código Delphi [-]
private
nIntentos: Integer;
Evento click del boton
Código Delphi [-]
begin
if TablaUsuario.AsString = edusuario.Text then
Abrir La Aplicacion
else
begin
ShowMessage('Usuario no valido');
Inc(nIntentos)
end;
if nIntentos = 4 then
begin
ShowMessage('Ha excedido el limite');
Close;
end;
end;
No lo he podido probar pero eso deberia funcionar
__________________
...Yo naci en esta ribera del arauca vibr@d0r
Soy hermano de la espuma,
de la garza, de la rosa y del sol...
Viva Venezuela
Última edición por eduarcol fecha: 27-06-2007 a las 22:42:19.
Razón: CREE MAL EL PROCEDIMIENTO
|